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It's becoming an epidemic . . . everyone is switching to C! 
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Total 
Description Quantity PRICE Order 


Split-Screen Text 
Editor $29.95 $ 


C Compiler $39.95 $ 


C and Text Editor 
(Special) $54.95 $ 


ASM Utility $10.00 $ 
Texas Residents Add 6.125% 


Sales TAX 
Shipping Charges (See at Right) 
TOTAL OF YOUR ORDER: 


Please check method of payment: 
] CheckZ] Money Order] MasterCard/VISA 


Your Card #: 


Expires 

Shipping Charges: (No charge for ASM 
Utility) 

In the U.S.A.: Add $5.00 per Order. 

In CANADA: Add $10.00 per Order. 


OVERSEAS: Add $10.00 per Text Editor. 
Add $20.00 per C Compiler. Add $30.00 
for combined C Compiler and Text Editor. 


Operating System: (Check one >) 
L]CP/M Z80 [IMSDOS/PCDOS 


Specify Your Computer Name 
Specify Disk Format 

NAME 

Telephone A/C ( 


Street 


2116 East Arapaho 

Suite 363 
SOftware _ Richardson, Texas, 75081 
Ask about our Volume Discounts! 
Call 1-214-783-6001 D 





Why your next generation of 
products should use our Sth 
generation tools. §=—== 






Arity’s integrated family of programming tools allows you to combine software written in 
Arity/Prolog, the best of the fifth generation languages, with Arity SQL, the best of the 
fourth generation languages, and with conventional third generation languages such as 
C or assembly language to build your smarter application. 


You can use Arity/Prolog to build expert systems using the Arity Expert Systems 
Development Package. Or to build natural language frontends. Or to build intelligent 
information management systems. Arity/Prolog lets you build advanced technology into 
your vertical applications package. 


And more... 


That's not the whole story. Arity’s products are all designed to be fast, powerful, serious. 
Each of our products contains unexpected bonuses. Such as a one gigabyte virtual 
database integrated into Arity/Prolog. ‘The most powerful of its kind on a PCr 


Quality first. Then price. 


In order to be the best, we had to prove it to our customers. Our tradition of quality 
software design is reflected in every product we sell. Quality first. Then price. And we 
always provide the best in customer support. 


Our products are not copy protected. We do not charge royalties. We offer generous 
educational and quantity discounts. And we have a 30 day money back guarantee. 


‘Try us to know that we keep our promise on commitment to quality and reliability. ‘Iry 
us by using our electronic bulletin board at 617-369-5622 or call us by telephone—you 
can reach us at 617-371-2422. 


Or fill in this coupon. Whether you order today or not, let us send you full descriptions 
of our integrated family of Arity products. 
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This Issue 

Welcome to our sixth annual spe- 
cial issue on the Forth language. 
Our feature article proposes a 
comprehensive set of standards 
for extended control structures. 
Everett Carter puts Forth in a bot- 
tle, and Craig A. Lindley opens a 
window on easy-to-use imple- 
mentations. We're also introduc- 
ing a new columnist whose spe- 
cialty is—you guessed it—Forth. 


What are Forth p | s 
programmers 
really like? 


Next Issue 

In the hot month of August why 
not dive into C? Last August, we 
broke ground with a new kind of 
software review. It was more 
technical and deeper in detail 
than the usual fare and used 
carefully designed ‘‘surgical’’ 
benchmarks. This year we re- 
prise and improve the process 
with an up-to-date comparison 
of 17 C compilers for MS-DOS. 
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WE'RE OUT TO SAVE ONE MILLION 
FRUSTRATED PROGRAMMERS 





You're on a roll, really pumped, 
writing the best code you have ever 
written and then— AAARGHHH! 

Freeze dried in your tracks because 
the language you’re using just won't 
let you achieve what you can conceive. 

And you wanted to be a 
programmer. 

So your choices are: 

1) write around the problem by 
creating six pages of emetic code... 

2) leave out that incredible idea 
that really puts your stamp of 
excellence on this program or... 

3) get yourself a world class 
headache (or a stroke) by dropping 
into assembler. 

Whatever you choose, by now you 
feel the language is out to get you— 
because it is. 

Sure, no language is perfect, but 
you have to wonder, “Am I getting 
all I deserve?” 

And, like money, you’ll never 
have enough. 

Pretty dismal, huh? 

We thought so, too. 

So we did something 
about it. 

We call it CLARION. 

You'll call it incredible. 

With CLARION you can 
write, compile, run and 
debug complex applications 
in a New York afternoon. 

Even if you’re in Savannah. 

It gives you the power and 





speed tocreate screens, windows © SOG 
and reports of such richness << > 
and clarity you would never , So 
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attempt them with any other 
language. 

Because YOU would have to 
write the code. 


With CLARION you simply design the 
ER 


screens using our SCREEN 
utility and then CLARION writes 
the source code AND compiles 

it for you. 

In seconds. 

Likewise, you can use 
REPORTER to create reports. 
Remember, only CLARION can 
recompile and display a screen or 
report layout for modification. 

And with no time wasted. 

All the power and facilities you 
need to write great programs, faster 












than you ever dreamed of. 

Programs that are easy to use. 

Programs that are a pleasure 
to write. 

And to you that means true 
Satisfaction. 

You've coveted those nifty pop-up 
help windows some major appli- 
cations feature. But you can’t afford 
the time and energy it takes to write 
them into your programs. 

That’s the way it used to be. 

So we fixed that, too. 

CLARION HELPER is an inter- 
active utility that let’s you design 
the most effective pop-up help 
screens that you can imagine. And 
they’re “context sensitive” meaning 
you can have help for every field in 
your application. 

Unlike the other micro languages, 
CLARION provides declarations, 
procedures and functions to process 

dates, strings, screens, 
reports, indexed 

files, DOS files 
me) and memory 
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Imagine making source program 
changes with the CLARION 
EDITOR. A single keystroke 
terminates the EDITOR, loads the 
COMPILER, compiles the program, 
loads the PROCESSOR and 
executes the program. It’s that easy! 

data management capa- 
bilities are phenomenal. CLARION 
files permit any number of composite 
keys which are updated dynamically. 

A file may have as many keys as 
it needs. Each key may be composed 
of any fields in any order. And key 
files are updated whenever the 
value of the key changes. 

Like SCREENER and 
REPORTER, CLARION’s FILER 
utility also has a piece of the 
CLARION COMPILER. To create a 
new file, you name the Source 
Module. Then you name the State- 
ment Label of a file structure 
within it. 

FILER will also automatically 
rebuild existing files to match a 
changed file structure. It creates a 
new record for every existing 
record, copying the existing fields 
and initializing new ones. 

Sounds pretty complicated, 
huh? 

Not with CLARION’s 
documentation and on-line 
help screens. If you are 
currently competent in Basic, 
Pascal or “C” you can be 

~ writing CLARION applications 
in a day. In two days you won't 


believe the eloquence of your 
CLARION programs. 

Okay, now for the best part of all. You 
can say it in CLARION for $295.00— 
complete. All you need is an IBM® PC, A 
AT or true compatible, with 320 KB of 
memory and a hard disk drive. 


And we'll allow a full 30 day evalua- 
tion period. If you’re not satisfied 
with CLARION, simply 
return it in its original condition 
for a full refund. 

If you’re not ready to take advantage 
of this no-risk opportunity, ask for 
our detailed 16 page color brochure. 
It vividly illustrates the elegance of 
CLARION. Consider it a preview of 
programming in the fast lane. 

Either way, the call’s a freebie. 


BARRINGTON SYSTEMS, INC. * P.O. BOX 5580 * POMPANO BEACH, FL 33074 * 305/785-4555 


IBM™ is a registered trademark of International Business Machines Corporation. CLARION™ 


. 115 on reader service card 





is a trademark of Barrington Systems, Inc. ©1986 Barrington Systems. 





EDITORIAL 


oncern has 

been ex- 

pressed that 
we are abandoning 
Forth. Were not. We 
have, though, devot- 
ed less attention to 
the language in the 
past year and intend 
to redress this, start- 
ing with this Forth is- 
sue. Michael Ham, 
our new columnist sharing the Struc- 
tured Languages column, is an ac- 
complished Forth programmer and 
one of the most eloquent voices in the 
Forth community. We're looking for- 
ward to publishing more Forth arti- 
cles in future issues, particularly 
those that demonstrate the unique 
advantages of Forth’s threaded, ex- 
tensible, reverse Polish nature. 


Michael Odawa, vice president of 
the Software Entrepreneur's Forum 
and director of the Software Services 
Association, sent us a letter about a 
new set of tax regulations that are up 
for consideration here in California. 
The new legislation, if passed, would 
be grossly unfair to independent soft- 
ware authors. Briefly, the proposed 
revision to the State Board of Equal- 
ization’s Regulation No. 1502 would 
apply a sales tax of 6-7 percent (de- 
pending on the county) to all soft- 
ware royalty income, as well as some 
software-related business transac- 
tions (such as installation and mainte- 
nance of software). Neither of these 
forms of income is currently subject 
to sales tax, and neither should be— 
both represent charges for labor, not 
sales of physical assets. This ruling 
runs completely contrary to Sections 
6011 and 6012 of the Revenue and 
Taxation code, in which labor 
charges are explicitly excluded from 
sales taxation. 

One key issue here is the distinc- 
tion between services and manufac- 
tured goods. Under the tax code, ser- 
vices are not subject to sales tax. The 
new legislation would make the me- 








dium used to deliver 
a new piece of soft- 
ware determine the 
taxability of the sale. 

If you're a soft- 
ware author in Cali- 
fornia, this law 
would directly affect 
you. If you live else- 
where, you should 
be aware that wide- 
ranging legal prece- 
dents can be set by such legislation. 
Mr. Odawa can be reached through 
the Software Entrepreneur's Forum 
at (415) 854-7219. We urge program) 
mers to educate California state legis- 
lators about this legislation. 


Authors often ask, ‘How do I write 
a manuscript that you will want to 
publish?’ Call me directly, tell me 
about your article, and make sure | 
send you copies of our Writer 'S 
Guidelines and Style Sheet. But that's 
only the first step. There are so many 
“good things to know’ about writing 
for magazines that whole books have 
been written on the subject. Starting 
this month, I'd like to bring you some 
advice of my own. If you're working 
(or thinking of working) on an article, 
read on. 

Keep in mind that space is often at 
a premium. Explain (briefly) what 
the problem was that you solved and 
explain the solution. Then summa- 
rize briefly and mention where your 
software is available. 

Now is the time to get to work on 
articles for the next 68000 issue Janu- 
ary 1987). The deadline for that issue 
is September 15. Remember, if 
you get your article to me well before 
that date there will be time for re- 
writes—otherwise, if it’s not perfect 
it might not be published. If you have 
any ideas you'd like to discuss, give 
me a Call at (415) 366-3600. 


Vib pr——§ 


Nick Turner 
editor 
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Manx Aztec C86 
‘A compiler that has many strengths ... quite valuable 
for serious work” 

Computer Language review, February 1985 


Great Code: Manx Aztec C86 generates ‘fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 p1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


Code Compile/ 
Size __ Link Time 


Execution 
Time 


Dhrystone Benchmark 
Manx Aztec C86 3.3 
Microsoft C 3.0 
Optimized C86 2.20J 
Mark Williams 2.0 
Lattice 2.14 


5,760 
7,146 
11,009 
12,980 
20,404 


93 secs 
119 secs 
172 secs 
113 secs 
117 secs 


34 secs 
34 secs 
53 secs 
56 secs 
89 secs 


Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 

Optimized C compiler 
AS86 Macro Assembler 
80186/80286 Support 
8087/80287 Sensing Lib 
Extensive UNIX Library 
Large Memory Model 

Z (vi) Source Editor -c 
ROM Support Package -c 
Library Source Code -c 
MAKE, DIFF, and GREP -c 
One year of updates -c 


Symbolic Debugger 
LN86 Overlay Linker 
Librarian 

Profiler 

DOS, Screen, & Graphics Lib 
Intel Object Option 
CP/M-86 Library -c 
INTEL HEX Utility -c 
Mixed memory models -c 
Source Debugger -c 
CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System $499 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System $49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 
C-tree $395 
PHACT $250 
HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 
WindScreen $149 FirsTime $295 
SunScreen $99 C Util Lib $185 
PANEL $295 Plink-86 $395 


Greenleaf $185 
PC-lint $98 


{ Laboratories, Lattice TM Lattice ee ast 
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Manx Aztec C68k 


“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in ... blows 
away the competition for pure compile speed ... an ex- 
cellent effort.” 

Computer Language review, April 1985 
Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 
Optimized C 
Macro Assembler 
Overlay Linker 
Resource Compiler 
Debuggers 
Librarian 
Source Editor 
MacRam Disk -c 
Library Source -c 


Creates Clickable Applications 
Mouse Enhanced SHELL 
Easy Access to Mac Toolbox 
UNIX Library Functions 
Terminal Emulator (Source) 
Clear Detailed Documentation 
C-Stuff Library 

UniTools (vi,make,diff,grep) -c 
One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 
C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System 
Aztec C68d-d Developer’s System 


Aztec C68k-p Personal System 
C-tree database (source) 


AMIGA, CP/M-68k, 68k UNIX 


$499 
$299 
$199 
$399 
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Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3 $399 
Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C $49 
Aztec C65-c/128 C64, C128, CP/M $399 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 
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Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec CI 


‘Tve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I've seen.” 

80-Micro, December, 1984, John B. Harrell III 


Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 


How To Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30 
days. A small restocking fee may be required. 


Discounts 

There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in” basis for users of competing systems. Call for 
information: 
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Not for Profit? 

Dear DDJ, 

Your most recent name 
change has brought into fo- 
cus a matter which has 
been irritating me for some 
time: The copyright decla- 
ration stating that pub- 
lished programs are for 
“personal use only, not for 
profit.” Your “‘Software 
Tools’ are now said to be 
“for the professional pro- 
grammer.” Most profes- 
sional programmers, in my 
experience, are in the busi- 
ness for profit (or at least to 
keep food on the table). Giv- 
en the confusing (at least to 
me) state of litigation con- 
cerning software protec- 
tion, even to the extent of 
reverse engineering now 
apparently illegal, I find 
myself wondering if I dare 
read any magazines for 
fear that I might uncon- 
sciously use a line of some- 
one else’s code for profit. I 
am particularly irritated 
when I note that the code in 
question has been copied 
largely from another 
source. K & R seems to be a 
rich source of freshly copy- 
righted material, for 
example. 

A specific example 
which I found recently: An 
“author” took the code for 
GREP.C distributed by DEC, 
added #defines so that it 
would compile under an- 
other compiler, and copy- 
righted it as ‘not for profit,” 
“cannot modify or distrib- 
ute,” and so on. Does this 
mean DEC can't use it 


anymore? 

I would like to see fur- 
ther discussion of program 
protection and publication 
matters in DDJ. In the 
meantime, could you per- 
suade some of your au- 
thors to state “portions 
may be used in applica- 
tions providing suitable 
credit is given’ or some- 
thing to that effect? 

Allen R. Balmer 

6845 West Henrietta Rd. 

Rush, NY 14543 























DDJ has always been in fa- 
vor of public-domain soft- 
ware; unfortunately, the line 
between public-domain and 
copyrighted code has be- 
come increasingly blurred. 
Even the laws seem a little 
confused at times. When a 
software author modifies a 
public-domain program 
and releases the modified 
version, is he or she entitled 
to copyright it? Does it de- 


pend on the amount and na- 
ture of the modifications 
made? We welcome your 
point of view.—ed. 


Who is DDJ For? 
Dear DDJ, 

When I subscribed to DDJ 
three years ago, the maga- 
zine was described as “‘for 
users of small computer 
systems.’’ A year later 
(March 1984), it became ‘‘for 
the experienced in micro- 
computing.” Two months 
after that it became “.. . for 
advanced programmers. ’ 
Now you are “...for the 
professional programmer. ” 
It seems that you are be- 
coming ‘for’ a smaller and 
smaller readership. 

By some stretch of imagi- 
nation I might still be con- 
sidered eligible to be a sub- 
scriber, but your next 
redefinition will surely ex- 
clude me. But it probably 
won't matter, for by that 
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time DDJ will likely be 
merely an index of what's 
available on your bulletin 
board. 

Why not just publish the 
magazine and let the indi- 
vidual decide if the maga- 
zine is for him? 

Dave Sullivan 

207 Maclane St. 

Palo Alto, CA 94306 


As the market for computer 
magazines grows larger 
and more confusing, it be- 
comes increasingly impor- 
tant for each magazine to 
carefully target its audi- 
ence. DDJ’s audience has al- 
ways been a very devoted 
and well-defined group of 
people, and wed like to stay 
focused on that group. This 
means that people who are 
looking for introductory ar- 
ticles on programming in 
BASIC or who need to learn 
how to use their new 
spreadsheet will have to 
look elsewhere. But it’s also 
important not to get too car- 
ried away. We think Mr. 
Sullivan has a point. What 
do you think?—ed. 


Right to Assemble 
Dear DDJ, 

‘Mr. Campbell’s The Right 
to Assemble’ column 
(March 1986) on computing 
integer square roots pre- 
sents a clever modification 
of Newton’s Method that is 
considerably more effi- 
cient than previous imple- 
mentations that have ap- 
peared in the pages of DDJ 
and other magazines. 

The essence of Newton's 
Method is to guess the val- 
ue of the root and then to 
compute successively bet- 
ter guesses, using a simple 
formula, until the desired 
accuracy has been 
achieved. Mr. Campbell 
uses an ingenious scheme 
to arrive at a good initial 
guess. As a result, very few 
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UNIX operating systems have a well deserved reputation tor their 
powerful command set. Now PCUNIX gives you the same powerful 
commands. And a lot more. 

Built with Wendin’s Operating System Toolbox, PCUNIX is the only 
multitasking, multiuser operating system that can put the popular 
features of UNIX on your personal computer (IBM PC, AT, XT, or 
true compatible) for under $109. 

If you're already familiar with the UNIX environment you know 
what that means. If you aren’t, PCUNIX is your chance to discover 
what you've been missing at a price you can finally afford. 

Designed specifically for systems programmers, PCUNIX has all 
the features that have made UNIX the preferred environment for 
systems development. Commands that let you perform complex 
operations with a few keystrokes. Plus syntax that lets you compile 
programs in the background, handle piping and I/O redirection, and 
build shell script files. 

And that’s not all. 

PCUNIX links the popular Bourne shell to Wendin’s unique kernel. 
As a result, you have access to more than eighty enhanced system 
services built into all our Personal Operating Systems. 

Like our other Personal Operating Systems, PCUNIX also runs 
well-behaved MS-DOS programs, is fully compatible with the MS- DOS 
file system, and uses existing MS-DOS compilers, linkers and utilities. 

In addition, it comes with complete source code that lets you see 
for yourself exactly how the system works. 

So if you've ever wished you had the power and flexibility of UNIX 
on your PC, why not stop wishing and order PCUNIX today. 


PCUNIX. From Wendin. Only $99. 


ORDER HOTLINE 


® (509) 235-8088 
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is our commands. 


Ask about our other products 
for the IBM PC and true 
compatibles. 


PCVMS™ 
Multitasking, multiuser version of 
DEC's powerful VAX/VMS 
operating system. Runs most 
MS-DOS programs. 


XTC® 
The ultimate programmer's 
editor. Multitasking macro 
language plus multiple linkable 
windows and buffers. 


OPERATING SYSTEM 
TOOLBOX™ 


Complete software construction 
set that lets you build your own 
multitasking, multiuser operating 
systems. 


All products priced at $99 with 
source code included. 


DEALER INQUIRIES WELCOME 


Foreign orders inquire about shipping. 
Domestic orders add $5.00/1st item, 
$1.00 each additional item for shipping, 
handling, and insurance. 

Washington residents add 7.8% sales tax. 


MS is a trademark of Microsoft, PC-DOS is a trademark of IBM: UNIX is a 
trademark of AT&T; VAX/VMS is a registered trademark of Digital Equipment 
Corporation 


Wendin and XTC are registered trademarks of Wendin, inc. 
PCUNIX, PCVMS, Operating System Toolbox, and Personal Operating System 
are trademarks of Wendin, inc. 
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(continued from page 8) 


iterations of Newton's 
Method are required and 
the execution time is dra- 
matically reduced. 

I would like to present a 
different approach to 
guessing the root that is not 
as elegant as that used by 
Mr. Campbell but is even 
faster. I empirically deter- 
mined several formulas, 
each of which provides a 
good guess at the root for 
some range of argument 
values (for example, one 
formula for arguments in 
the range 2—255, another 
for the range 256—4095, 
and so on). Each formula is 
something like (A * X) + B 
where A and B are con- 
stants and X is either the 
entire argument or just the 
high byte of the argument. 





TOOL KIT 


Package: 












Assembler 







e Symbolic Debuggers 








60 Aberdeen Avenue, Cambridge, MA 02138 (617) 491-4180 


10 





e 68000/10/20 Assembler 
- Macro Cross/Native 


- Linker and Librarian 

- Cross Reference Facility 
- Symbol Formatter Utility 
- Object Module Translator 


e Green Hills C 68000/10/20 
Optimizing Compilers 


The guesses are good 
enough so that a single iter- 
ation of Newton’s Method 
either gives the correct 
square root or a value that is 
high by one. Then, a simple 
test determines whether or 
not to decrement the value. 

The CALC_ROOT proce- 
dure (Listing One, page 60) 
implements this idea in 
8088/8086 assembly lan- 
guage. The TIME proce- 
dure (also Listing One) was 
used to benchmark my 
routine on an IBM PC. The 
full benchmark (TIME_— 
ROOT routine) ran 98 sec- 
onds. Deducting 7 seconds 
for looping overhead, add- 
ed by the benchmark (TI- 
ME_OVER routine), it took 
91 seconds to compute 
983,040 roots or about 92 
microseconds per root as 
compared to 183 microsec- 
onds reported by Mr. 


ae 
A DIVISION OF XEL 


68000 
68010 


WE ARE PROUD TO ANNOUNCE THE BIR 
OF OUR 68000 FAMILY... 


FEATURES 
e Written in C; fast, accurate, portable. 
e Supports 68000 and 68010. 
e 5,000 line test suite included. 
e EXORmacs compatible. 
e Produces full listings and maps. 
e Outputs S-records and Tek-Hex formats. 
e Runs native or cross. Extensive libraries. 
e Supports OASYS compilers. 
e Generates PROMable output and PIC. 
e Full Floating Point support. 


Campbell for his 16032 rou- 
tine. My algorithm works 
as follows: 


1. If the argument equals 
zero or one then the square 
root equals the argument 
and I just return its value. 
2. If the argument is be- 
tween 2 and 255 inclusive, 
set Guess = Argument/16 
+ 3 and go to Step 7. The 
division by 16 is a 4-bit shift 
to the right. 

3. If the high byte of the ar- 
gument is between 1 and 
15 inclusive, set Guess = 4 * 
(high byte of the argument) 
+ 13 and go to Step 7. The 
multiplication is a shift left 
of two bits. 

4. If the high byte of the ar- 
gument is between 16 and 
127 inclusive, set Guess = 
(high byte of the argument) 
+ 50 and go to Step 7. 

5. If the high byte of the ar- 














68020 


TH OF THE NEWEST MEMBERS 


We provide a “One-Stop Shopping” 
service for more than 100 products 
running on, and/or targeting to, the 
most popular 32-, 16- and 8-bit 

micros and operating systems. 





gument is between 128 and 
254 inclusive, set Guess = 
(high byte of the argument) 
+ 40. If this guess is greater 
than 255, set Guess = 255 
and go to Step 7. 

6. If the high byte of the ar- 
gument equals 255 then the 
root is 255 and I return that 
value. 

7. Get the quotient of the 
argument divided by the 
guess. I use an 8-bit DIV 
which saves 70 clock cycles 
compared to a 16-bit DIV. I 
can do this because I have 
excluded (in Step 6 above) 
the one case that could pro- 
duce overflow. 

8. Set New Guess = (Guess 
+ Quotient )/2. The division 
by 2 isa 1-bit rotate. 

9. New Guess is either the 
correct square root or is 
high by one. To see which 
it is, I square New Guess. If 
New Guess “2 is less than or 






YOUR 68020 TOOLS ARE HERE! 


AVAILABILITY 
VAX, microVAX, 8600, Sun, Pyramid, 
Masscomp, IBM/PC, OASYS Attached 
Processors for VAX and PC, others. 
Runs under VMS, Bsd 4.2, System V, 
MS/DOS, dozens more. 

You name it .. . 







We Specialize In: 


Cross/Native Compilers C, Pascal, Fortran, Cobol, Basic,APL, 
PL/1,Prolog, Lisp, ADA — Assemblers/Linkers — Symbolic 
Debuggers — Simulators — Interpreters — Translators 
Converters — Profilers — QA Tools — Design Tools — Comm. Tools 
OS Kernels — Editors — Spreadsheets — Data Bases — VAX & PC 
Attached Processors and more 


We Support: 


Circle no. 254 on reader service card. 


680xx, 80x86, 320xx, 68xx, 80xx, dozens more 
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HOW TOTIME ALL 





33,110 PROCEDURE 


CALLS IN9 


The mystery of all time. 

It’s the biggest problem facing 
every designer of embedded micro- 
processor-based software: How can 
you tell exactly where your code is 
spending its time during execution 
in the target environment? 

Most current systems for analyz- 
ing software can only give you a 
statistical answer at best. Or worse, 
an answer falsified by the fact that 
you had to modify your software in 
order to view it. 


In performance analysis, there’s 
no time like the real time. 
NWIS has the answer. The 
SoftAnalyst™ provides the first real- 
time performance analysis of your 
software. You measure segments of 
interest within your code, using the 
same symbols defined in your source 
code. For example, you can specify 
procedure entry and exit points, 
line numbers, or code ranges. The 
SoftAnalyst shows you how fre- 
quently each segment executed, 









and how much total time it con- 
sumed. It also shows true minimum 
and maximum execution times so 
you can know if your real-time code 
is ever out of spec. 

And it’s non-intrusive, so you 
don’t have to modify your code to 
measure it. 

Finally, it’s non-statistical: auto- 
matically tracking every single entry 
to and exit from your specified areas 
of code. It’s language-and-compiler- 
independent, working equally well 


on C, PASCAL, FORTRAN, or 


File Edit Display Setup Events Weasurenent Control 


SECONDS. 


assembly; on code compiled on 
computers ranging from VA Xes 


to PCs. 


Software analysis has never 
been smarter. 

The SoftAnalyst does much more 
than just performance analysis. 

It also gives you CodeMap™ 
which monitors your address space, 
and tells you whether or not your 
test cases exercised all of your code. 

And SymItace™ provides high- 
level symbolic monitoring of your 
program and data flow. 


We'll show you how: 
Call us at 800-547-4445 to 

schedule a SoftAnalyst demonstra- 

tion at your facility. , » 
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LETTERS 
(continued from page 10) 


equal to the argument, 
then the square root equals 
New Guess or else it equals 
New Guess — 1. 

This method is an exam- 
ple of perspirational rather 
than inspirational pro- 
gramming. I wrote a small 
BASIC program (Listing 
Two, page 62) designed to 
test out different formulas. 
After some tedious hours 
trying various possibilities I 
found a set of ranges and 
formulas that worked. 

My BASIC program is 
quite fast because it only 
tests argument values that 
are one less than a perfect 
square (for example, num- 
bers of the form N*2 — 1). 
These tend to be the worst 
case situations because the 
exact root of such numbers 
is very near to N while the 
integer root is N — 1. 

The TEST procedure 
(Listing One) was used to 
verify the accuracy of the 
root for all 65536 argument 
values. In this test, I 
checked that the square of 
the root is less than or 
equal to the argument and 
that (root + 1)*2 is greater 
than the argument. 

Robert Pirko 

211 West 56th St. 

Apt. 36L 

New York, NY 10019 


Dear DDJ, 

I noticed The Right to As- 
semble column discussing 
integer square roots as im- 
plemented on the 68000 
and the 32000 in the March 
1986 issue. I wish to further 
illustrate the advantage of 
using the higher-level in- 
structions of the 32000 with 
a listing of my routine to 
perform a floating-point 
square root in software. It 
uses a format similar to 
IEEE double precision, ex- 
cept that I put the expo- 
nent on the right to reduce 
the number of opera- 
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tions required. My 16032 
with a 7.16-MHz clock 
takes 190 microseconds to 
do the double-precision 
square root (including vari- 
able passing overhead). 
This is 1,113 times faster 
than BASCOM does it on my 
Z80 system (3.68 MHz, 1 
wait state). Because I don't 
have access to a 68000 com- 
puter, I don’t know how it 
would fare in this task. 

In Listing Three, page 62, 
you will notice there is no 
looping and there are no 
calls to the floating-point 
multiply or divide rou- 
tines. The algorithm used is 
called Newton’s Method 
and iteratively executes 
the following equation: 


Y = Y/2 + (X/2)/Y 


The equation is based upon 
the use of a derivative to ex- 
trapolate and calculate a 
more precise guess. The bi- 
nary exponent is a great aid 
in choosing the first guess. 
We know to start with that 
the mantissa of the answer 
will be between 1 and 2; 
furthermore, the even-or- 
odd condition of the origi- 
nal exponent tells us if the 
mantissa of the answer will 
be above or below the 
square root of 2. With this 
guidance, we make the first 
guess either 1.189 or 1.68. 
This is enough of a start so 
that four iterations is al- 
ways enough to obtain the 
required 53 bits of preci- 
sion. Only in rare cases 
would three iterations be 
enough, so we always do 
four iterations without any 
testing. Because the preci- 
sion of the result more than 
doubles with each itera- 
tion, the first three itera- 
tions can be performed 
with less precision, and the 
compactness of the 32000 
instructions makes it easy 
to take advantage of this 
fact. Notice in the listing, 
starting at label SQR2, how 
easy it is to do the first three 





iterations with 32-bit preci- 
sion on the 2000. The DEID 
R3,R4 instruction takes a 64- 
bit value in R4R5 and di- 
vides it by the 32-bit value 
in R3. It puts the quotient in 
R5 and the remainder in 
R4. Four machine-code in- 
structions to evaluate the 
whole equation is what I 
would call efficient. 

Neil R. Koozer 

Kellogg Star Rt. 

Box 125 

Oakland, OR 97462 


Help 

Dear DDJ, 

We are a nonprofit organi- 
zation founded to help the 
handicapped and disabled 
acquire job skills and jobs 
with the assistance of PCs. 
Our staff helps coordinate 
the efforts of rehabilitation 
agencies and educational 
institutions. Whenever 
possible, we supply the 
needed PC equipment at 
no cost and train people to 
use it. 

To disseminate informa- 
tion and reach and encour- 
age the handicapped and 
disabled, we publish a bi- 
monthly newsletter Per- 
sonal Computer Opportuni- 
ties for the Handicapped. If 
you wish to subscribe, 
please send your name and 
address. We ask that you 
make a contribution of a 
minimum of $10. This con- 
tribution is fully tax deduct- 
ible. If you are handi- 
capped or prefer not to 
make a contribution, drop 
us a note and we will give 
you a subscription at no 
charge. 

We deeply appreciate 
any assistance you can give 
us. 

James R. Nichols, 

Personal Opportunities 

for the Handicapped 

P.O. Box 374 

Spicer, MN 56288 


Corrections 
Dear DDJ, 
Thank you for including 


our software in the March 
1986 issue of DDJ. There isa 
slight error in that para- 
graph which depreciates 
the value of our hardware. 
It should read “. . . LAB 40 is 
a structured parallel port 
that takes 16 memory or 
I/O locations...” 

The article has it reading 
16K (the K should be 
omitted). 

Scott Vanderlip 

75 Southgate Ave. 

Suite 6 

Daly City, CA 94015 


Dear DDJ, 

By this time you have un- 
doubtedly caught the er- 
rors in The Right to Assem- 
ble column in March 1986. 

The worst error is the 
definition of the (integer) 
square root of an integer, at 
the top of column 2. By 
your definition, the square 
root of 17 (or of any prime 
number) would be 1. 

The others, at the top of 
column 3, lead you to say in 
one sentence that “4 is not 
the correct root” and in the 
next that “‘the integer 
square root of 24 is 4.” In 
the same sentence, you 
have ‘‘24 divided by 4 
equals 5.” 

Dorothy Wolfe 

245 Hathaway Ln. 

Synnewood, PA 19096 


Dear DDJ, 

Thank you for your ex- 
cerpt on our company in 
your January (1986) Of In- 
terest column. 

We would like to point 
out that you mentioned 
our company name as ATC 
International in your col- 
umn when actually it 
should have been ACS 
International. 

Janet M. Heidenreich 

Advanced Computer 

Solutions International 

2105 Luna Rd. 

Suite 330 

Carrollton, TX 75006 

DDJ 
(Listings begin on page 60.) 
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Turbo Pascal and the Turbo Pascal 


family give you a perfectly integrated 
programming environment and 


unbeatable — power, and price 


‘L'urbo Pascal’ is faster than 
any other Pascal compiler, 
and at only $69.95, a distinctly 
better deal. But it offers much 
more than speed, power, 

and price. 

There's also the complete 
Pascal family of products that’s 
grown from 1 to 9 products in 
just 3 years. 

Turbo Pascal is backed by a, 


complete range of “toolboxes” that 
give you most of the programming 
tools you'll ever need. 

The Turbo Pascal family is 
never static, but is continuously 
expanding, with new products 
like Turbo Editor Toolbox™ and 
Turbo Gameworks.™ 

The secret of software success is 


not merely low price, but top quality, 
allied with complete documentation, 
like our 400-page reference manual. 


All of which are some of the 
reasons why Turbo Pascal is clearly 
the leader, and the recipient of 
awards like PC Week’s “Product of 
the Year” and PC Magazine’s 
“Award for Technical Excellence.” 
And some of the reasons why Turbo 
Pascal has now become a de facto 
worldwide standard with more than 
half a million users. 


Turbo Pascal has grown 
from a single product 3 
years ago to a family 
of 9 today. 

Success breeds success, so the 
Turbo Pascal family has flourished. 
Your choices now include: 


CJ Turbo Pascal 3.0 combines 

the fastest Pascal compiler with 

an integrated development 
environment. 

CQ) Turbo Pascal with 8087 math 
co-processor support for heavy duty 
number-crunching, and/or Binary 
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Coded Decimals to 
eliminate rounding-off 
errors for business 
applications. 

CJ Turbo Database Toolbox is a 
perfect complement to Turbo Pascal. 
It includes a complete library of 
Pascal procedures that allows you to 
search and sort data, and build 
powerful database applications. 

C) Turbo Graphix Toolbox includes 
a library of graphics routines for 
Turbo Pascal programs. Lets even 
beginning programmers create 
high-resolution graphics with an 
IBM,” Hercules,™ or compatible 
graphics adapter. Does complex 
business graphics, easy windowing, 
and stores screen images to 
memory. 


NEW! Amazing value! Turbo 
Editor Toolbox includes 
MicroStar™ a full-blown 
editor that also does windows! 
Turbo Editor Toolbox not only gives you 
ready-to-compile source code and a 200- 
page manual that tells you how to inte- 
grate the editor procedures and functions 
into your programs, but also includes 


NEW! rurbo Gameworks 
gives you the games you 
can write, rewrite, bend and 
amend! Turbo GameWorks reveals 
the secrets of game design and the 
strategies. You're given source code, a 
©00-page manual, and the insight 
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box, Turbo 


®@ Turbo Pascal 3.0 

© Turbo Pascal with the 
8087 support 

® Turbo Pascal with 
Binary Coded Decimal, 
(BCD) 

® Turbo Pascal with 8087 
and BCD 

Turbo Database 
Toolbox™ 

Turbo Graphix Toolbox™ 
Turbo Tutor® 

Turbo Editor Toolbox 
Turbo GameWorks 


- UL Turbo Tutor teaches you 
~ step by step how to use Turbo 

Pascal, with commented source code 

for all program examples on diskette. 


Save $109.70 when you / 
choose the Turbo Jumbo 
Pack. 6 different Turbo 
Pascal products for only 
$245.00! 

For only $246.00, you get Turbo 
Pascal 3.0 and Turbo Editor Toolbox 
and Turbo Tutor and Turbo Graphix 
Toolbox and Turbo GameWorks and 
Turbo Database Toolbox! 

All 6 for only $245.00, which saves 
you $109.70. This limited offer is 
good through September 1, 1986, so 
act now. 





Mine is: _ 8-bit — 16-bit 

/ use: __ PC-DOS __ MS-DOS __ CP/M-80 __ CP/M-86 
MicroStar, a complete editor with full My computer's name and model is: 
windowing capabilities. (You could pay 
$100.00 or more for a program like The disk size | use is: 3%" 05%" 08" 
MicroStar, but you get it free as part of Payment: VISA MC Bank Draft ‘Check 
our Turbo Editor Toolbox.) You can also Credit card expiration date ___/__ 
use Turbo Editor (which of course in- 
tegrates with Turbo Lightning™) to = 
build your own word processor! 

NOT COPY PROTECTED = TF'11 
**60-DAY MONEY-BACK GUARANTEE 
needed to write and customize your oe 
own irresistible games. Shipping Address: 
Turbo GameWorks also includes ready- 

to-play Chess, Bridge, and Go-Moku—an City: 
ancient Japanese game that can divert State: Zo: 
you from reality for hours on end. 









| | want 
S § the best 
To order by phone, 
or for a dealer nearest you, 
call (800) 255-8008 
in CA call (800) 742-1133 
Copies Product Price Totals 
—— Turbo Pascal 3.0 $69.95 $ 
_— Turbo Pascal w/g0g7tt $109.90 $ 
—— Turbo Pascal w/pcptt $109.90 $ 
— Turbo Pascal w/8087, BCDtt $724.95 ¢ 
—— Turbo Database Toolbox $54.95 $ 
—— Turbo Graphix Toolboxt $54.95 $ 
—— Turbo Tutor $34.95 $ 
—— Turbo Editor Toolboxt $69.95 $ 
—— Turbo GameWorkst $69.95 $ 
—— Turbo Jumbo Packt “$245.00 $ 








44 Language deal 
of the century... 
pubigelepa-rie-n 
Jeff Duntemann, PC Magazine 


Turbo Pascal has got 
to be the best value 


in languages on the 
market today 


Jerry Pournelle, BYTE Magazine 


This compiler, produced 
by Borland International, 
is one of the best pro- 
gramming tools presently 
available for the PC 

b | 






Michael Covington, 
PC Tech Journal 













































Outside USA add $10 per copy 
CA and MA res. add sales tax $ 


Amount enclosed iets 
Prices include shipping to all US cities. 
Carefully describe your computer system: 



































Telephone: 


CODs and purchase orders WILL NOT be accepted by Borland. 
Outside USA make payment by credit card or International Postal 
Money Order. 

*Limited Time Offer until September 1, 1986. 


**YES, if within 60 days of purchase this product does not 
perform in accordance with our claims, call our customer service 
department and we will gladly arrange a refund. 


Minimum System Requirements: 

Turbo GameWorks, Turbo Graphix Toolbox, & Turbo Editor 
Toolbox—192K. All other products, 128K. 

TBM PC, PCji, AT, XT, 

and true compatibles 
16-bit only. 





FORUM 


DDJ ON LINE 


For those of you who 
missed it the first time, here 
is how to log on to the DDJ 
Forum. 


1. Get yourself a Compu- 
Serve account. (Call Compu- 
Serve at (800) 848-8199 for 
information. ) 

2. Log on to CompuServe 
and type go ddj at the 
prompt. This will bring you 
into the Display Area, the 
Read Only (noninteractive ) 
module of the SIG. Here 
youll find information 
about the DDJ Forum. 

3. Select the last menu 
choice from the Display 
Area Menu. This will bring 
you into the Forum where 
the message boards, Data 
Libraries, and real-time 
conferencing features are. 
That’s also where youll 
find me and columnists 
such as Mike Ham, Namir 
Shammas, Ray Duncan, and 
Allen Holub. 

4, Type I at the Top Menu. 
This will give you a list of 
commands and a thumbnail 
sketch of the Forum's struc- 
ture and features. You 
should capture this list and 
print it out. It’s handy to use 
as a map until you acquaint 
yourself with the territory. 
5. Read the bulletins and help 
files. Type B at the Top 
Menu to read the bulletins. 
These provide more infor- 
mation about various as- 
pects of the Forum. I also 
recommend that you go to 
DLO (type DLO at the Top 
Menu) and browse the help 
files there. To do this, type 
BRO at the DL menu. When it 
asks you for KEYWORDS, 
type HELP. The best help file 
for a quick start is EZSIG 
HELP. 


That should get you start- 
ed folks. Of course the only 
real way to learn how the 
system works is to work on 
the system <grin>. Try 
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things out, make a few mis- 
takes, get the feel of it. And if 
all else fails, ask that “SYSOP 
person—she'll be glad to 
help. 

—Levi Thomas (*SYSOP) 


The following is an on-line 
exchange that took place in 
the Forum’s House of AL- 
GOL (the on-line version of 
Namir Shammas’ Struc- 
tured Programming col- 
umns). 


Modula-2 

11-Mar-86 

Sb: Modula-2 Tools 

Fm: Bill 73047 ,2624 

To: All 

I am just getting started in 
Modula-2 although I have 
programmed in just about 
everything else. I am writ- 
ing a simple multitasking 
dispatcher for a fun project 
I’m developing. When I get 
it to where I like it, I'll let 
you know if youre inter- 
ested. I suspect that I’m re- 
inventing the wheel, but I 
haven't been able to find 
anything like it in the pub- 
lic arena. 


12-Mar-86 

Sb: Modula-2 Tools 

Fm: Bob 76703,532 

To: Bill 

I assume you are aware of 
MODUS, the Modula-2 User 
Group? If not, I'll gladly 
provide you with an ad- 
dress. Check out recent is- 
sues of ACM SIGPlan No- 
tices. (It should be available 
at most libraries.) 

The June 1985 issue con- 
tains two Modula-2 articles. 
One of them, entitled ‘““Two 
Approaches to Implement- 
ing Generic Data Structures 
in Modula-2,” is by Weiner 
and Sincovec, the gentle- 
men with a reasonable Mo- 
dula-2 book to their credit. 

The December 1985 issue 
contains three articles re- 
lating to Modula-2, includ- 


ing one from a user of both 
Modula-2 and Ada. 

The articles you will be 
most interested in are enti- 
tled “Modula-2 Process Fa- 
cilities’ and ‘“Modula-2 and 
the Monitor Concept.”’ 
These are by D. A. Swery 
and are in the November 
1984 issue. Both articles are 
reasonably well written 
and both contain source 
code. The first article ex- 
tend’s Dr. Wirth’s binary 
semaphores to counting 
semaphores, and the sec- 
ond is a Modula-2 imple- 
mentation of Hoare’s moni- 
tor concept. That both 
semaphores and monitors 
can easily be implemented 
in Modula-2 (without re- 
sorting to assembly) is an 
excellent example of the 
power of Modula-2's co- 
routines. 

The October 1984 issue 
has an article about imple- 
menting semaphores un- 
der Unix without kernel 
changes. Some code (in C) is 
included as examples. This 
article is of interest because 
it makes minimal assump- 
tions about the underlying 
OS. 

The January 1986 issue 
contains an article entitled 
‘Detection of Deadlocks in 
Multiprocess Systems,’ 
which should be of interest 
to people designing tasking 
systems. 


13-Mar-86 

Sb: Modula-2 Tools 

Fm: Bill 

To: Bob 

Thanks much for the info. 
I'll check in the company 
library for the SIGPlan No- 
tices. Could you please give 
me the address for MODUS? 
I'm afraid I’m a Pascal bigot 
and ignorant of the Mo- 
dula-2 user community. 
I’m rapidly converting! 
Would there be a more def- 
inite way of asking for the 


SIGPlan info? Sometimes 
the library isn’t too sure of 
the really technical stuff. 
Thanks again! 


14-Mar-86 

Sb: Modula-2 Tools 

Fm: Bob 

To: Bill 

The address of MODUS is 
MODUS 

c/o George Symons 

P.O. Box 51778 

Palo Alto, CA 94303 

(415) 322-0547 

Dues are $20/academic 
year. The basic benefit is 
four newsletters/year. The 
membership form asks for 
name, company (if appro- 
priate), address, phone, 
electronic address, and 
which implementations of 
Modula-2 you use. In addi- 
tion there are three options: 


1. Don’t print my phone 
number on MODUS rosters. 

2. Print only my name and 
country in any rosters. 

3. Don’t release my name 
on any mailing lists. 


When you join, you'll be 
sent all back issues for the 
current year. 

Your librarian should be 
able to look up the SIGPlan 
Notices issues using the 
dates given. SIGPlan No- 
tices is the actual name of 
the magazine. It isa month- 
ly publication of ACM's (As- 
sociation for Computing 
Machinery) Special Inter- 
est Group for Program- 
ming Languages. 

If your company library 
doesn’t have SIGPlan No- 
tices, many public libraries 
have it. It really is quite 
common. 


20-Mar-86 

Sb: Logitech’s Modula-2 
Fm: Bill 

To: Bob 

I’ve just acquired Logitech's 
Modula-2. I had the ITC (still 
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You know what UNIX™ System V 
can do. 

But now you don’t need a mini to do 
it. The AT&T UNIX PC puts room-size 
computing power right ona desktop. 

Its Motorola 68010 chip, 10 MHz 
clock speed and up to 4MB RAM— 
with virtual memory support and inter- 
nal hard disk options from 10 to 
67MB—give you 75% of the power of 
a VAX* 11/780. 

For only 7% of the cost. 

Development tools? The AT&T 
UNIX PC puts you in a UNIX System V 
- environment complete with system util- 
ities, the shell, C compiler and 68010 
assembler. As for languages, you get the 
full range: C, Cobol, Fortran, Pascal, 
BASIC and the LPI** high-performance 
suite. Not to mention C-ISAMf, 
INFORMIX} and sort/merge for 
database development. 


All, with the convenience of built-in 
text editors, debuggers and graphics 
tools, including the GSS Virtual 
Device Interface. 

~ Up- and downloading your work 
from minis or mainframes is easy. 
Thanks to the standard internal 300/ 
1200 bps modem, RS-232 port, VT 
100* terminal emulation software and 
optional 3270 terminal emulation. You 
also get two jacks for phone lines and 
built-in communications software. 

All of which make the AT&T UNIX 
PC ideal for ongoing voice/data com- 


-munications and remote access to 


shared corporate databases. 


ONE OF THE COMPUTERS 
WITH THE FUTURE BUILT IN. 


Even with all its available power 
and storage options, the AT&T UNIX 
PC still has room to grow. With three 


*VAX and VT 100 are trademarks of Digital Equipment Corporation. **LP1 is a trademark of Language Processors, Inc. 
tC-ISAM and INFORMIX are trademarks of Relational Database Systems, Inc. © 1986 AT&T Information Systems. 


FOR PEOPLE WITH 
HINGS IN MIND. 


expansion slots and the ability to con- 
nect up to seven serial devices. 

Because when you have big ideas, 
accommodating them shouldn’t be a 
big deal. 


‘To find out about the AT&T UNIX PC and our 
SPECIAL LIMITED TIME OFFER 
call your ATT Account Executive, authorized 
AT&T supplier or 1 800 247-1212. 


ATal 
The right choice. 
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have it, actually) and found 


it much too buggy. So far 
the only problem I’ve 
found with Logitech is that 
I didn’t go for the “sources” 
right off. But... that’s for 
when the checkbook gets 
back to a plus balance I 
guess. On a similar subject, 
what are all the Modula-2 
folks reading out there? I 
just ordered the Wirth third 
edition from the publisher, 
but I suspect that other 
good Modula-2 books are 
available. I have the “Ship- 
builder’s” book but found it 
to be much too low a level. 
As a lifetime systems pro- 
grammer, I need meat to 
keep me happy—none of 
this “cute” stuff. (Do “real 
systems programmers’ 
read ‘‘cute’’?) I noticed that 


EXECUTION SPEED? | 


McGraw-Hill (in the CServe 
electronic mail) had Olgl- 
vie(sp?)’s book for sale. Is it 
any good? Any other sug- 
gestions? 


19-Mar-86 

Sb: Turbo Multitasking 
Fm: Jean 76606,671 

To: Sysop—All 

Hi! I bought my first DDJ 
last week (never too 
late. ..). I found the paper 
about multitasking with 
Turbo-Pascal very interest- 
ing. I looked for an IBM XT 
version in your DLs. Can I 
expect to see it one of these 
days? I’m a new IBM user 
(I’m more used to Apple- 
Pascal) and I didn’t find all 
addresses to drive the mo- 
dem. Also, does someone 
here know if Logitech's 
Modula-2/86 Version 2.0 
compiler (the one an- 
nounced for $89) supports 


Compatible, efficient DOS : 


multi-tasking. 


We designed Taskview with effi- 
ciency in mind. During normal 
operation, TASKVIEW hides 
behind DOS, providing you with 


control of up to 10 concurrent or |. 


non-concurrent programs. Just 
the touch of a key instantly 
switches a program to the fore- 
ground. Included desktop utili- 
ties let you cut and paste from 
program to program. Simple to 
use and reasonably priced, no 
well equipped PC user should 
be without it. 
Requires: PC/AT/Jr compatible, 
DOS 2.0-3.1, 256K RAM, 1 
Floppy drive. 


Taskview trademark of Sunnyhill Software 
Sidekick registered trad k of B 








Circle no. 172 on reader service card. 
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all Modula-2 features (espe- 
cially coprocessing)? 


19-Mar-86 

Sb: Logitech’s Modula-2 
Fm: Steve 70003,1326 

To: Jean 

Yes, it is all there. I have 
been working with Logi- 
tech’s Modula-2 for about a 
month now. It is for real, a 
production compiler. I 
have it running on my DEC 
Rainbow (the editor is only 
for the IBM PC). I have al- 
ready written a simple ter- 
minal program in Modula- 
2. I have no problem 
getting to INTs and inter- 
rupt vectors. 


20-Mar-86 

Sb: Logitech’s Modula-2 
Fm: Bob 

To: Jean 

Yes! Logitech’s Modula-2/86 
does support the entire lan- 
guage, including corou- 
tines, TRANSFER, and IO- 
TRANSFER. (IOTRANSFER 
implies being able to write 
interrupt handlers in Mo- 
dula-2, which can in fact be 
done using Logitech's com- 
piler.) 

Logitech’s Modula-2/86 is 
probably the best Modula-2 
for the IBM PC, clones, and 
the 8086 in general. 


21-Mar-86 

Sb: Logitech’s Modula-2 
Fm: Bill 

To: Jean 

I have the debuggers—Post 
and Runtime. Both are un- 
real and well worth every 
cent. I, too, forewent the 
“sources” and will order 
them as soon as the check- 
book recovers from all the 
other things I have gotten 
in the last few weeks. Al- 
though you don’t “need” 
them to run the compiler, 
they would be nice as it is 
through the sources that 
you can customize the com- 
piler/editor/linker options. 
It would also be nice to see 
the internals of some of the 
library modules. (I am, alas, 


a “real” systems program- 
mer and not seeing the real 
code deprives me of my sat- 


_isfaction.) I hope that this fo- 


rum on Modula-2 gets going 
as I am just learning this 
language (it’s probably 
number 20 or so) and it’s the 
best so far. Now, if some- 
body will just point me to 
an Ada compiler environ- 
ment for the PC, I'll move 
on (hee, hee). ... You must 
understand, I dearly love 
my “toys” (got it from my 
father) and technical stuff 
gets me high. 


20-Mar-86 

Sb: Logitech’s Modula-2 
Fm: Jean 

To: Steve 

Thanks to Steve, Bob, and 
Bill for your answers! 
Great feedback in this SIG! 
So, think I’m gonna order 
that Modula-2. An IBM SW 
user suggested I buy the 
Utility package (for Post- 
mortem debugger) and 
Sources features. Sources 
are expensive ...I dont 
know...so I’m happy to 
find help. I'll make my first 
steps in that great lan- 
guage, the normal step af- 
ter Pascal. So, thanks again! 
Jean (ps: Are you all ‘real 
system programmers ?—I 
am an amateur program- 
mer!) 


DDJ 


Vote for your favorite feature/ 
article. 
Circle Reader Service No. 1. 
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QUIT DOING 
GRUNT WORK. 


Let Greenleaf do it for you 
and set you free. 


C Program developers, 

stop slaving! 

Greenleaf libraries have the 
functions you need — already 
perfected and in use by winning 
program developers in major 
corporations such as IBM, EDS 
and GM. 


Between our Greenleaf Functions 
and Greenleaf Comm Library, we 
have over 340 functions on the 
shelf. Each one can save you 
time and effort. Money, too. 


Many C programmers have told 
us that, even if they only use one 
or two functions, our products 
easily pay for themselves: 


The Greenleaf Functions 


The most complete and mature C 
language function library for the 
IBM PC, XT, AT and close 
compatibles. Our version 3.0 
includes over 225 functions — 
DOS, disk, video, color text and 
graphics, string, time/date, 
keyboard, new disk status and 
Ctr1-Break control functions plus 
many more! 


The Greenleaf Comm Library 
Our 2.0 version is the hottest 
communications facility of its 
kind. Over 120 all new functions 
— ring buffered, interrupt-driven 
asynchronous communications. 


Call Toll Free 


1-800-523-9830 


In Texas and Alaska, call 


214-446-8641 











GREENI_EAF 





es 


Greenleaf Software, Inc. 
1411 LeMay Drive Suite 101 
Carrollton, TX 75007 





If you need more than 2 ports, 
only Greenleaf gives you the total 
solution — boards, software, and 
complete instructions that enable 
you to build a 16-port 
communication system. 


And no matter how many ports 
you have, it’s virtually impossible 
to lose information with multiple 
file transfers. XMODEM, XON/ 
XOFF and Hayes modem 
controls are featured. 


We support all popular C 
compilers for MS DOS: Lattice, 
Microsoft, Computer 
Innovations, Wizard, Aztec, 
DeSmet and Mark Williams. 


Order today! 


Order a Greenleaf C library now. 
See your dealer or call 1-800- 
923-9830. Specify compiler 
when ordering. Add $8 for UPS 
second day air, or $5 for ground. 
Texas residents, add sales tax. 
Mastercard, VISA, P.O., check, 
COD. In stock, shipped next day. 


Greenleaf 

Comm Library v2.0 $185 
Greenleaf Functions v3.0 $185 
Digiboard Comm/4-II $315 
Digiboard Comm/8-II $915 


We also sell compilers, books and 
combination packages. 


Circle no. 97 on reader service card. 
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ror 


Trees and More on Microsoit and Lattice Compilers 


y main topics this month are bi- 

nary trees and C compilers. I'll 
look at a couple of fancy tree-printing 
routines and at a nonrecursive tree- 
traversal routine. Before leaping into 
trees, though: 


A New Version of the Shell 
DDJ is now shipping a new version of 
the shell that originally appeared in 
this column. In addition to fixing all 
the bugs I know about, I’ve included 
several significant enhancements in 
the new version. Pipes are now sup- 
ported (you can even put the pipe tem- 
porary files on a RAM disk if you wan. 
The alias and history expansion rou- 
tines have also been improved consid- 
erably. You can now Say: 


a foo echo foo 
a bar echo bar 
a foobar ‘foo;bar’ 


as well as: 
!! >bar; !pat 


DOS-compatible prompt support has 
been added ($t, $d, $e, and so on). You 
can change the escape character 
from backslash to another character 
so you can use backslash as a path 
separator. Exit takes a value so that a 
batch file that was called as a subrou- 
tine from another batch file can re- 
turn a value to the calling process. 
$status is supported (it works a bit like 
errorlevel does). 





by Allen Holub 


Most important, all the C shell con- 
trol flow commands (except goto) are 
now supported. In particular, there is 
an IF...THEN...ELSE mechanism, 
WHILE and FOREACH loops, and a C- 
like SWITCH statement. Complicated 
expression analysis is supported in 
these statements, using several opera- 
tors((), +,-—,*,4,% <=> >= >, 
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f=, ==,!, &&, and ; /). You can cre- 
ate and modify variables (with an @ 
command). In short, you can now ac- 
tually write real shell scripts. 

Upgrades from Version 1 are avail- 
able from DDJ for $6. 


Printing a Tree 

Ever since I was an undergraduate, 
I’ve wanted to write a routine that 
printed binary trees graphically— 
that drew a picture of the tree, show- 
ing with dashes and arrows where 
all the pointers went and which 
nodes were where. So this month, I 
finally sat down and did it. In fact I 
did it twice—once for an in-order tra- 
versal and once for a preorder tra- 
versal. Output from the tree-printing 
routines is shown in Figures 1 and 2, 
page 19. 

The tree-printing routines are in 
Listing One, page 68. The sinorder( ) 
function (lines 70—94) is included to 
show how the basic algorithm 
works. The static variable depth 
keeps track of the depth of the cur- 
rent node in the tree. The root is at 
depth 0, its children are at depth 1, 
and so on. The subroutine does an in- 
order traversal in the normal way. 
Instead of just printing each node, 
however, it prints depth tabs and 
then prints the node. This way, the 
farther down a node isin the tree, the 
farther to the right it will appear on 
the page. 

A sample output is shown in Figure 
3, page 19. There are two problems 
here. First, because there are no con- 
necting lines, it’s a little hard to see 
the internal connections in the tree. 
Second, a mirror image of the tree 








has been printed. Because a normal 
in-order traversal looks like: 


traverse( root ) 
traverse (left) 
print the root 
traverse (right) 


the leftmost node of the left subtree 
will be printed first. A glance at Table 
3 shows that the output is back- 
ward—the leftmost node ends up on 
the far right. 

Both these problems are corrected 
in the subroutine inorder (lines 
120—156). Fixing the mirror-image 
problem is easy. You just change the 
traversal algorithm to: 


traverse( root ) 

{ 
traverse (right) 
print the root 
traverse (left) 


Getting the lines is a little more diffi- 
cult. The problem is the vertical lines 
(printed with / characters). A bit map 
is kept in which each bit corresponds 
to a particular depth in the tree. If a 
bit is set, then a / is printed when you 
arrive at the equivalent depth in the 
output. So, all you need to do is set 
and clear these bits at the appropri- 
ate time. The relationships between 
the bit map and the final picture are 
illustrated in Figure 4, page 19. 

If you set and clear the bits in the 
simplest possible way (that is, set the 
bit on line 131 of Listing One and 
clear it on line 153), a picture such as: 


+2 

+ ---f--- + 

+-—e 
d---+ 

+--=C 

+ ---b----+ 

+—-a 
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is created. You can avoid the topmost 
line by adding horizontal lines as you 
ascend rather than descend the tree. 
That is, the horizontal line for node f 
won't be added until after you've 
processed node g. This is done in the 
code on line 147 by setting the bit for 
the current level after a node has 
been printed. Setting the next level if 
there is no right child (line 135) avoids 
problems such as: 


+ ---g--- + 
+ ---f 
+ ---e--- + 
d---+ 
and 
f--- + 
+---e 
+ ---d--- + 


where a line is omitted. 
There are two situations in which a 
bottom extraneous line is created: 


+ ---1 
+ ---h--- + 
g-— + 
me + ---f 
| + ---e---+ 
+ ---d--- + 
+---b 


To get rid of the extraneous line to 
the left of the b, you need to know 
whether the current node is a left or 
right child. You can then clear the ap- 
propriate bit when you process a left 
child. In the above example, if node d 
knows that it’s a left child, it can clear 
the bit at its own depth before de- 
scending. This way the extra line 
isn't printed to the left of the b. The 
variable amleft indicates whether the 
current node is a left or right descen- 
dant. It should be set to 0 the first time 
inorder( ) is called. 

The second extra line (to the left of 
the f) is actually left over from pro- 
cessing node i. Because there was no 
left child, the test I just described 
wasn't performed. This situation is 
addressed by the code on lines 
149— 152. If there’s no left descen- 
dant for the current node, you'll al- 
ways Clear the bit at depth +1. In the 
above example, because node h has 
no left descendant, it will clear the 
extra bit before ascending. The prob- 
lem of no right child is addressed on 
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lines 132—135. 

The preorder( ) routine (lines 
172— 203) uses more or less the same 
process. A new problem pops up 
here. You need to print an occasional 
blank line so that the output doesn’t 


fo cote 


eles 
| 
| 
i 











look like the following example: 


d 
+ ------- b 
+ ------- a 
+ ------- C 
+ ------- ip 
+ ------- e 
Se 


(there should be a blank line above 
the f node). The code to do this is on 
lines 195— 199. A blank line is printed 
if the current node is a right descen- 
dant and has no children. In the 
above example, this will happen at 
nodes c and g. The mirror-image is- 
sue is not a problem in a preorder tra- 
versal because you usually want to 
read down the columns (as in the 
above example). If you applied the 
Same mirror-image reversal to the 
preorder traversal that you used in 
the in-order traversal, nodes a and c 
(and nodes e and g) would be trans- 
posed incorrectly. 

The bit-map routines (setbit( ), test- 
bit( ), and makebitmap( )) originally 
appeared in this column more than a 





Lines at this level correspond to this 
bit in the map: 


Bil 1 Bild 8it 3 


at depth: 0 


Figure 2: Printing an unbalanced | Figure 4: Relationships between bits 


tree 





and lines 
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© CHEST 
(continued from page 20) 


year ago. They’re reproduced in List- 
ing Two, page 71. 


Nonrecursive Tree Traversal 
One of the problems with most tra- 
versal algorithms is that they're re- 
cursive. If a tree degrades to a linked 
list, you'll need as many recursion 
levels as there are nodes in the tree. 
Each recursion level requires its own 
stack frame, so assuming a 10-byte 
stack frame, you'll need 1,000 bytes 
of stack to traverse a degraded, 100- 
node tree. This can cause problems if 
huge amounts of stack aren't avail- 
able, so occasionally it’s useful to give 
up the simplicity of a recursive algo- 
rithm for an iterative one. 

It’s easy to search for a node or in- 
sert a node into a tree in a nonrecur- 
sive way because you never have to 
remember where you came from. 
That is, you only have to descend to 
the proper node and never have to go 
back up again. A nonrecursive 
search-and-insert function is given 
on lines 30—66 of Listing One. 

Nonrecursive traversal is a harder 
problem because you have to go 
backward. In a recursive traversal 
routine, the pointer to the previous 
node is stored on the run-time stack, 
as part of the current subroutine’s 
stack frame. That is, the pointer to 
the current node is passed to a recur- 
sive subroutine as a parameter. That 
parameter won't be modified by sub- 
sequent recursive calls because it’s 






do forever 
if( present node is marked ) 
Clear mark. 
else 
while( there’s a left child ) 

















Go left. 


if( no previous node ) 
break : 
if( previous node is marked ) 
Go up from a right child. 
ese. 
Go up from a left child. 


Mark the present node. 
Go right. 


Visit present node if doing preorder traversal. 


Visit pres node if in-order or preorder traversal. 
Visit present node if postorder traversal. 


Visit present node if in-order traversal. 


stored on the stack by each successive 
recursive call. 

In an iterative traversal, you don't 
have the luxury of a run-time stack. 
One solution to this problem is to 
maintain your own stack of pointers 
to previous nodes as a static data 
structure, thereby moving the previ- 
ous-node information from the run- 
time stack to the static data area. This 
method wastes space, though, be- 
cause you already have a convenient 
place to store the previous-node 
pointers—in the tree itself. As you de- 
scend the tree, you can reverse the 
pointer that you just used to get to the 
current node so that it now points 
back up to the previous node. As you 
ascend back up, you reverse the 
pointer again. The basic traversal al- 
gorithm is shown in Table 1, below. 

Deciding in which direction to go 
when you're at any given node is a 
problem. You'll go through every 
node three times— once on the way 
down, once again as you ascend from 
the left, and a third time as you as- 
cend from the right. The problem is 
resolved by ‘‘marking” a node after 
you've printed the left subtree but 
before you descend right (that is, the 
second time you visit it). This way, 
when you come back up from the 
right, you can look at the mark and 
decide to ascend rather than go right 
again. Only one bit is needed to mark 
a node, so because my nodes have an 
ASCII string as one of their fields, I set 
the high bit of the first character in 
the string to mark a node. Macros to 
set, clear, and test this bit are on lines 


Table 1: A link-reversal tree-traversal algorithm 


20 





23—25 of Listing One. If an extra bit 
isn’t available, you can always add a 
tag field to the LEAF structure, but it 
seemed like a waste of memory to do 
that here. 

The routine /r_trav( ) (on lines 
245 —301 of Listing One) is a straight- 
forward implementation of the algo- 
rithm in Table 4. It does an in-order 
traversal. Comments are inserted in 
the code to show where preorder or 
postorder visits should go (remove 
the in-order visits in these cases). The 
pres variable points at the node cur- 
rently being visited. The prev vari- 
able points at the present node's par- 
ent. Next is just a convenient place to 
put things as you reverse pointers. 

There are other nonrecursive tra- 
versal algorithms (the most interest- 
ing is the Robson traversal, which 
doesn’t need to mark nodes), but 
they're all more complicated to im- 
plement than a simple link-reversal 
algorithm. If you're interested in 
these other methods, look at Thomas 
A. Standish’s book Data Structure 
Techniques (Reading, Mass.: Addison- 
Wesley, 1980), 74—83. 


Microsoft C, Version 3.0 

To no one’s surprise, I received a call 
from Microsoft soon after my review 
of its compiler was published in the 
March 1986 C Chest. The company 
was (perhaps justifiably) miffed, so I 
agreed to give it equal time in the col- 
umn—fair is fair. Sandra Jacobson 
(product manager, Systems Lan- 
guages) at Microsoft sent me the fol- 
lowing letter in response to that 
review: 

“We appreciate Allen Holub’s com- 
ments regarding the Microsoft C 
compiler. We try to improve each 
version of the compiler through com- 
ments and recommendations from 
users and reviewers. 

“Although we agree with many of 
the comments made by Allen, as they 
have also been recommended to us 
by other users of Microsoft C, we still 
disagree with some major points. The 
following comments and recommen- 
dations have been incorporated into 
Version 4.0 of the compiler: 


1. We have improved the internal er- 
ror messages that are displayed. We 
have also improved on the error re- 
covery in the parser. 

2. The command-line interface has 
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INTERESTS FIND AN INTERESTING 
COMMON GROUND. 


Presenting CompuServe Forums. 
Where people from all over get 
together, without even leaving 


home. 

Now thanks to CompuServe 
Forums, computer owners are sharing 
common interests by talking to each other 
through their computer keyboards. Soft- 
ware users, computer enthusiasts, ham 
operators, french cooks, fire fighters, 
science fiction lovers and other special 
interest groups are already in touch, 
online. 

Because when you subscribe to 
CompuServe, you're able to reach people 
who want to talk about the things you do. 
As many people as you like. For as long 
as you like. Whenever you wish. 

Join a conversation already in 


progress or start one on your own. Ask 
questions. And get answers. 

All it takes is a modem, most any 
personal computer and CompuServe. 


Forum members across the country 
are as close as a local phone call. 

You can go online with just a local 
call in most major metropolitan areas. And 
normal usage fees for weekday nights and 
weekends are just 10¢ a minute 


Of special interest to all Forum 
participants is software that’s FREE 
for the taking. 

Public domain software. For all 
sorts of activities, from games to business 
programs. And it’s just as easy to copy a 
piece of software as it is to participate in 
a Forum. 


Circle no. 237 on reader service card. 


Become a CompuServe subscriber and 
get a $25 Usage Credit to start you off. 

Becoming a subscriber is as easy as 
contacting your local computer dealer. Or 
you can call us and order direct. Suggested 
retail price is $39.95. 

And if you'd want more information 
about CompuServe, we'll be happy to send 
you a free brochure. Because with all that 
CompuServe offers—we think it’s in your 
best interest. 


CompuServe’ 


Information Services, PO. Box 20212, 
5000 Arlington Centre Blvd., Columbus, OH 43220 


800-848-8199 


In Ohio, call 614-457-0802 


An H&R Block Company 
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been improved to correct the 127- 
byte limit for flags passed to each of 
the compiler passes from the driver. 
There is still a 127-byte limit on invok- 
ing the compiler from the command 
line. We have also improved on the 
error recovery in the parser. 

3. The internal error and problems 
with the spawn function have been 
fixed. 

4. Because of requests from users of | 


Microsoft C, we have included the C 
start-up code with Version 4.0 of the 
C compiler. It is considerably more 
than 100 lines of code, and these rou- 
tines should be used only by experi- 
enced C programmers who have a 
complete understanding of C and MS- 
DOS. This will considerably help peo- 
ple who want to create ROMable 
code. 
5. The documentation on the exten- 
sions near and far has been improved 
in Version 4.0. 

‘‘We feel that some of the problems 





If you're tired of waiting, 
you're using the wrong file manager. 


Be fast. Btrieve. © 


If batch jobs and reports turn wait- 
ing time to nighttime, then wake up! 
You’re using the wrong file manager. 

Btrieve® file management hates 
waiting as much as you do. It’s writ- 
ten in assembly language especially 
for the IBM PC. And based on b-tree 
file indexing, with automatic balanc- 
ing for access speed that won't de- 
grade as your database grows. With 
Btrieve, your applications always run 
fast. So you'll be out the door faster. 

The standard for networking. 
Btrieve/N (network version) sets the 
standard for the industry’s most 
popular LANs and multi-user sys- 
tems. Btrieve/N offers safe network 
file management that coordinates 
simultaneous updates and prevents 
lost data. 

Automatic file recovery. Btrieve pro- 
vides automatic file recovery after a 
system crash. Your Btrieve data always 





comes back intact. 

Fully-relational data management. 
SoftCraft’s entire family of products 
gives you a complete, fully-relational 
database management system. 
Rtrieve™ adds report writing capabili- 
ties. Xtrieve™ speeds users through 
database queries with interactive 
menus. 

For professional programmers. 
Btrieve is the fast, reliable answer for 
all your application development in 
BASIC, Pascal, COBOL, C, FOR- 
TRAN and APL. With Btrieve, you 
can develop better applications faster. 
And know they'll run—fast. 


P.O. Box #917 Austin, Texas 78766 
(512) 346-8380 Telex 358 200 


Suggested retail prices: Btrieve, $245; Btrieve/N, $595; Xtrieve, $245; Xtrieve/N, $595; Rtrieve, $145; 
Rtrieve/N, $345. Requires PC-DOS or MS-DOS 1.X, 2.X, or 3.X. NO ROYALTIES. 


Circle no. 113 on reader service card. 
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that Allen discussed were based on 
incorrect assumptions: 


¢ The differences between ‘the way a 
Microsoft library routine works 
and ...the equivalent Unix routine’ 
are specified in Appendix B of the Li- 
brary Reference Manual: ‘A Common 
Library for XENIX and MS-DOS.’ [I 
missed it, sorry.—Allen] 

¢In reference to’... strncpy pads out 
the string with nulls to the maximum 
count—why?’, our implementation 
of strncpy is compatible with the 
Unix System V definition of strncpy 
as well as the definition in the devel- 
oping ANSI standard. Both require 
padding of the target string. /I still 
wonder why, but the problem isn't Mi- 
crosoft’s.—Allen) 

¢ With respect to Allen’s concern 
about #endif: ‘...it ignores the last 
line of a file if it isn’t terminated with 
a new line. An #endif without a CR 
gives an ‘“‘unexpected end of file” 
message.’ The developing ANSI stan- 
dard (which we're following closely) 
specifies that a new-line character 
(CR-LF) is required as the last charac- 
ter of every source file that is refer- 
enced via an #include statement. Be- 
cause any file may be referenced in 
this way, Microsoft C does not differ- 
entiate between included source and 
main source. [Oh come off it. How 
hard can it be to check for EOF as well 
as CR-LF?—Allen|] 


“We try to provide products that 
are worthy of use by a wide variety 
of users, both in-house and outside 
Microsoft. We encourage a strong di- 
alogue between our users and our 
product-support group. Allen claims 
that we don’t support our product, 
yet he told us that he didn’t contact 
Microsoft to verify that his problems 
were valid or to report them. [Mea 
culpa.—Allen] The best way for a user 
of Microsoft C to make sure that cor- 
rections and recommendations to the 
compiler are made is to contact Mi- 
crosoft Technical Support at (206) 882- 
8089. Problem reports can also be 
sent to us at our new address: Micro- 
soft Corp., Technical Support, 16011 
N.E. 36th Way, P.O. Box 97017, Red- 
mond, WA 98073-9717. For compiler 
errors, we suggest that the localized 
problem be sent in on a disk.” 

I'm tempted not to carry this dis- 


| cussion any farther, but some of Ms. 


Dr. Dobb’s Journal, July 1986 











ee 





INTERNATIONAL 
SYA\ Moto O) a Ol ts) 


Australia: 

Fagan Microprocessor Assoc 
ea ae) tT Pan CORB RC Lole sess ste) 
Canada: Scantel Systems 
Phone: (416) 449-9252 
England: Grey Matter, Ltd. 
Phone: (44) 364-53499 

Italy: Lifeboat Assoc., S.p.A. 
Phone: (02) 656-841 

Japan: Lifeboat Japan 
Phone: (03) 293-4711 

Spain: Micronet, S.A. 
Phone: (34) 1-457-5056 

Dee iets 

GIGA Computer Products 
a oD Ue AEs 1s) 

An CT cuir LaN a 

MEMA Computer GmbH 
Phone: (49) (069)34 72 26 


Lifeboat 
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Tarrytown, NY 10591 


Knowing software is an art in itself. It takes time and dedication. 
At Lifeboat, we're committed to more than just selling the best 
software. We know our products and support them. And we learn 
about you, our customers, giving you the complete solution to 


your programming needs. 


LANGUAGES 


Lattice C New 3.0 Version The 
best selling C Compiler has been 
upgraded to give you more functions 
and features. Lattice C 3.0 contains 
200 new library functions, better code 
generation, support for new data types 
(void, enum, unsigned char, unsigned 
long), support for the 80186/80286 
instruction set and the ability to 
generate in-line 8087/80287 instruc- 
tions. Lattice C is the C compiler for 
professional developers. 


RUN/C—The C Interpreter 
Upgraded Version Learn C the 
natural way with RUN/C. The user 
interface is similar to BASIC with easy 
familiar commands. The new 2.0 version 
of RUN/C comes with a full-screen 
editor and other enhancements. 


RUN/C Professional New 

RUN/C Professional *’... is the overall 
best choice in aC interpreter.’ PC Tech 
Journal (5/86). All RUN/C’s capabilities 
plus powerful features for program 
development. Load your favorite object 
libraries with RUN/C Professional. 
Contains a full-screen editor and source 
code debugging facilities. 


BetterBASIC New Version Now 
you can program in BASIC and use the 
full memory of your PC, create struc- 
tured programs using functions and 
procedures, make your own library 
modules and more. Now compatible 
with Microsoft BASIC. 


LANGUAGE UTILITIES 


Periscope | & Il The symbolic 
debugger that can debug anywhere 
within a program at anytime with a 
simple press of a button! Periscope’s 
breakout button will interrupt infinite 
loops, gain freedom from a locked up 
keyboard or help you find out where that 
slow running program is spending all its 
time. Periscope covers every conceiv- 
able type of breakpoint, including breaks 
on reads and writes to ranges of memory. 
Source code and line numbers for popu- 
lar high level languages are displayed. 
Periscope | additionally features a 
protected memory board which shields 
the debugger from runaway programs. 


Plink86 Plus An overlay linkage 
editor for linking 8086/8088 object 
modules. Contains new features for 
memory caching, library allocation, file 
merging and overlay reloading. 


The names of products listed are generally the trademarks of the sources of the 
products. 
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Pfix86 Plus A symbolic and source 
level advanced debugger for program- 
ming professionals. 


C-SPRITE Symbolic debugging at 
both source level and machine level. 
Monitor your program by setting break- 
points, examining registers and vari- 
ables, or single-stepping through code. 


EDITORS 


FirsTime Speed-up program develop- 
ment with an easy-to-use syntax 
checking editor for C or Pascal. Detects 
syntax errors, undefined variables and 
mismatched type assignments. Use 
function key menus to generate state- 
ments or enter your code directly. Also 
includes a program formatter and unique 
program development aids. FirsTime 
key assignments can be reconfigured. 
Easy-to-learn with on-line help available. 


VEDIT Plus A full-screen text editor 
for program development and word 
processing. It contains powerful fea- 
tures including use of macros, on-line 
help facility, paragraph formatting, and 
file comparison. 


Pmate The programmer's editor with 
an extensive macro command language. 
Compile in the background while you 
continue to edit files. 


EMACS Customizable editor including 
windowing, multi-tasking and special 
modes for C and Pascal. 


FUNCTIONS 


The Greenleaf Comm Library 

A library of over 120 communication 
routines. Contains functions to create 
interrupt driven routines or perform 
direct 1/0 to multiple Comm Ports. Its 
strengths are in asynchronous com- 
munications, interrupt mode, modem 
control, XMODEM, XON/XOFF and flow 
control. Interfaces with Lattice, Micro- 
soft, Wizard, Desmet, Cl86, Aztec and 
Mark Williams C compilers. 


PforCe New A library of 4U0 plus 
functions for interrupt driven com- 
munications, background tasks, string/ 
table parsing, data base manipulation, 
DOS and BIOS functions and more. Su- 
perbly written and documented software 
with complete source code is included. 





The Full-Service Source For Programming Software 


The Greenleaf Functions A ma- 
ture library of over 200 functions. 
Version 3.0 offers all new indexed 
documentation, with an abundance of 
examples. Source code included. 


BASIC_C Speed-up development time 
with this BASIC to C library. Designed 
for the BASIC programmer who is 
moving over to C. This library act as 

a bridge to C providing many of the 
capabilities of the BASIC language. 


Essential C Utility Library Over 
300 functions, with special attention 
given to screen handling, windows and 
business graphics. Source code Is 
included. 


GRAPHICS, WINDOWING and 
SCREEN DESIGN 


GSS*CGI GRAPHICS New The 
GSS Computer Graphics Interface is 
designed for creating high performance 
graphics-based applications. GSS*CGI 
speeds up application development and 
provides compatibility with a wide 
range of peripherals. It’s the only 

CG! implementation that provides true 
device-independence for both raster and 
vector graphics. Products in the GSS 
GRAPHICS line include: the GSS*CGI 
Graphics Development Toolkit, the GSS 
Kernel System; the GSS Plotting System; 
and the GSS*CGI Metafile Interpreter. 


Essential Graphics New A brand 
new graphics library for C programmers 
with the emphasis placed on ease of 
use and portability. No royalties. 


Halo Library of over 200 graphics 
functions, supporting all of the popular 
graphics boards. 


Windows for Data New Provides 
C programmers with complete control 
over screen display and data entry, 
within an easy-to-use windowing sys- 
tem. Combines a comprehensive library 
of window functions with an integrated 
set of versatile data-entry functions. 
Features include one-step data entry, 
multiple data types, Lotus-style menu 
design, full-featured field editing, pop- 
up entry windows, and much more. 


Panel A powerful tool for interactive 
screen design. 


For more information on these and other 
products in our complete line call: 


1-800-847-7078 
NY: 914-332-1875 


The Full-Service Source for Programming Software. 
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Jacobson’s points deserve comment. 
Though my remarks both here and 
in the original review are critical of 
the compiler (criticism is, after all, 
the point of a critical review), I do 
think the Microsoft C compiler is a 
good product (at least when contrast- 
ed with other available compilers). I 
use it myself. It could be a better 
product, though, and I’m hoping that 
a public discussion of its faults will 
spur Microsoft into making a few es- 
sential changes. All too often, new 
products are greeted with encomi- 
ums rather than real analyses, and I 
think that honest critique from a 
working programmer’s perspective 
is important. Nobody benefits if I 
don’t talk about problems I find in a 
product just because the manufactur- 
er of that product claims that they'll 
be fixed in the next version. Even if 
the technical-support group can tell 
me about a bug over the phone, the 
bug still exists, and not everyone can 
spend lots of time on the phone to 
Washington. I don't want to antago- 
nize Microsoft. What I do want is a 
better compiler, and I honestly be- 
lieve that public discussion is the only 
way to bring this about. 

I would love to say that the Micro- 
soft C compiler is the greatest thing 
since peanut butter, but I couldn't say 
that about Version 3.0 without my 
nose growing several inches. I’ve not 
received a review copy of Version 4.0 
yet, but it sounds as though most of 
the major faults in the compiler (at 
least the bugs and the error-recovery 
problems) have been fixed. I look for- 
ward to getting a copy. 

One major problem that isn’t ad- 
dressed in the letter is the poor over- 
all quality of the User’s Guide. To my 
mind a user’s guide for a C compiler 
shouldn't also try to teach you how to 
use DOS—that’s what the DOS manual 
is for. I hope that Microsoft will seri- 
ously consider rewriting it for expe- 
rienced programmers who can read 
above a sixth-grade level. As for tech- 
nical support, at $400 for the compil- 
er, I think Microsoft should, at the 
very least, send out an occasional 
newsletter listing all known bugs and 
work-arounds for them (I’ve suggest- 
ed this to Microsoft, and it is consider- 
ing it). If the firm doesn’t tell you 
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about a known bug, then the bug is 
undocumented, whether or not that 
bug was discovered after the docu- 
mentation was printed. By the same 
token, the technical-support phone 
number should be a toll-free number 
(it isn’t). Having to pay peak-hour 
phone rates to find out about a bug 
that should have been reported in a 
newsletter is just adding insult to in- 
jury. Finally, I don’t consider sending 
in a bug report and getting an answer 
at some indeterminate future date to 
be adequate support. I want to call 
and get an answer right then. If the 
normal technical-support person 
can’t answer a question, I want to be 
connected to someone who can. It 
seems reasonable to have to pay ex- 
tra for this kind of support, but I 
think it should be available. (Micro- 
soft is considering doing this, too.) 
Microsoft, of course, is not alone in 
providing inadequate (I think) techni- 
cal support, and in all fairness, it 
seems to be interested in improving 
its support process. I think there's a 
technical-support problem in the in- 
dustry as a whole. A “these guys are 
just hobbyists, so what do they need 
source code or schematics for?”’ atti- 
tude seems to prevail. My fond hope 
is that Microsoft, which in my experi- 
ence is a major offender in this de- 
partment, will have a change of 
heart and lead the way for better 
technical support in the industry 
overall. All hardware should be 
shipped with schematics and a com- 
plete technical description. Period. 
All software documentation should 
explain low-level internals in depth, 
and source code should always be 
available if you need it. Period. 


Lattice C, Version 3.0 

I received a copy of Version 2 of the 
Lattice C compiler (3.0F to be exact) a 
few months ago, and I've finally had 
a chance to look at it. This version 
represents a significant improve- 
ment over previous versions. Func- 
tion prototyping (strong type check- 
ing of subroutine arguments) has 
been added, and the compiler has 
been made more Unix-compatible 
overall (for example, unsigned is now 
a modifier rather than a type). The 
library has also been expanded con- 
siderably. If you have an earlier ver- 
sion of the compiler, I'd definitely 
recommend an upgrade, even if you 











have to pay for it. 

To test the compiler, I recompiled 
all the routines in the /util program 
package that DDJ's currently distrib- 
uting. I found both good and bad 
things. The code-size problem has 
been addressed. The .exe files are 
now considerably smaller than they 
used to be. On the average, Lattice ex- 
ecutables are only 7 percent larger 
than the Microsoft executables (gen- 
erated from the same source code). 
Some of the Lattice executables are 
literally half the size of the Microsoft 
versions, however. 

The compiler’s error messages are 
pretty good, and there is now some 
lint-like support. For example: 


foo! ) 
int : 
return; 


gives the error message ‘FOO.c 5 
Warning 93: no reference to identifi- 
er ‘i’.” Like lint, however, this kind of 
error checking can generate needless 
noise. For example: 


fool ) 

{ 
int 1; 
int a=1; 
for(:a; a5 


i=6; 


generated “‘FOO.c 6 Warning 94: unin- 
itialized auto variable ‘i’.” I'd like to 
see a way to disable these lint-like er- 
ror messages (with the exception of 
the function prototype warnings). 

The Lattice compiler has several 
subroutines [dosint( ), for example] 
that have the same names, but differ- 
ent calling conventions, from those 
of the Microsoft compiler. This situa- 
tion came about because they were 
originally the same compiler, but I 
wish one or the other of the manu- 
facturers would change its subrou- 
tine names. Microsoft provides an in- 
clude file with #defines that takes 
care of most of the changes. Lattice 
should provide a similar file to go in 
the other direction. 

There are a few Unix I/O library 
functions missing from the library, 
though there are often functional 
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C Programmers! First database 
written exclusively for C 
is also royalty free 


“If you are looking for a sophisticated C Programmer’s Database, db_ VISTA™ is it...” 
Dave Schmitt, President, Lattice, Inc. 


Designed exclusively for C, db_VISTA™ 
is a royalty-free programmer's DBMS. 
Both single and multi-user versions let 
you take full advantage of C, through ease 
of use, portability and efficiency. 


Written in C for C Programmers 


All functions use C conventions so you 
will find db_VISTA easy to learn. db_ 
VISTA operates on most popular com- 
puters, and because it is written in C it can 
easily be ported to most computers. 


Royalty-Free, You only pay once 


Whether you're developing applications 
for a few customers, or for thousands, the 
price of db_ VISTA is the same. If you are 
currently paying royalties for a com- 
petitor’s database, consider switching to 
db_VISTA and say goodbye to royalties. 
To help you make the change over to db __ 
VISTA, ASCII file transfer utilities are in- 
cluded. dBASE file transfer utilities are 
available as an option. 


More from your database applications 
with source code 


Source code includes all db VISTA lib- 
raries and utilities. 
1. Recompile our run-time libraries utili- 
zing non-standard compiler options. 
2. Create a debugging library including 
a function traceback by activating pre- 
processor commands embedded in the 
source code. 


Multi-user and LAN capability 


Information often needs to be shared. 
db_ VISTA has multi-user capability and 
Supports simultaneous users in either 
multi-tasking or local area networking 
environments, allowing the same C appli- 
cations to run under UNIX and MS-DOS. 


Faster execution 
without data redundancy 


Less data redundancy means reducing 
disk storage requirements and maximiz- 
ing data access performance. A customer 
evaluating a leading competitor's product 
prior to purchasing db_VISTA bench- 
marked db_VISTA’s retrieval time to be 
276% faster than a leading competitor. 


Complete documentation included 


User manual contains 193 pages, 8 dia- 
grams, 10 tables, appendices, an exten- 
sive index, plus a database application 
example. 9 chapters with complete in- 
structions. 


Introducing db_QUERY™ 
With db_ QUERY you can ask more of 
your database, db_ QUERY is a linkable, 
SQL-based ad hoc query and report writ- 
ing facility. It’s also royalty-free. 
30 day Money-Back Guarantee 
We wish to give you the opportunity to 











try db_ VISTA for 30 days in your develop- 
ment environment and if not satisfied re- 
turn it for a full refund. 


SAVE $50 TO $100! PURCHASE 
db_ VISTA™ BY AUGUST 31, 1986 
and, RECEIVE UPTO $100 REBATE* 


Price Schedule 
db VISTA Rebate 


Single-user $195 

Single-user with Source S495 $ 50 
Multi-user $495 S$ 50 
Multi-user with Source $990 $100 


Free 90 days application development support 
All software Not Copy Protected 


Call Toll Free Today and 
Learn How To Receive Up To $100 


To order or for information, call TOLL 
FREE 1-800-843-3313, at the tone touch 
700-992 or call 206-747-5570. 

VISA and MASTERCARD Accepted 





Database Record and File Sizes 

¢ Maximum record length limited only 
by accessible RAM 

¢ Maximum records per file is 16,777,215 

¢ No limit on number of records or set 
types 

¢ Maximum file size limited only by 
available disk storage 

¢ Maximum of 255 index and data files 


Keys and Sets 

¢ Key length maximum 246 bytes 

¢ No limit on maximum number of key 
fields per record - any or all fields may 
be keys with the option of making each 
key unique or duplicate 

¢ No limit on maximum number of fields 
per record, sets per database, or sort 
fields per set 

¢ No limit on maximum number of 
member record types per set 


Utilities 
¢ Database definition language processor 
¢ Interactive database access utility 
¢ Database consistency check utility 
¢ Database initialization utility 
¢ Multi-user file locks clear utility 
¢ Key file build utility 
¢ Data field alignment check utility 
¢ Database dictionary print utility 
« Key file dump utility 
¢ ASCII file import and export utility 





RAIMA" 


CORPORATION 
12201 S.E. Tenth Street 
Bellevue, WA 98005 USA 
(206) 747-5570 
Telex: 9103330300 BCN RIVERTON 


Circle no. 206 on reader service card. 


db_ VISTA Version 2.11 Database Mangement System for C 


Read what others say about db_ VISTA.. 


“If you are looking for a sophisticated C 
programmers database, db_VISTA is it. 
In either a single or multi-user environ- 
ment, db_VISTA lets you easily build 
complex databases with many intercon- 
nected record types. The multi-user im- 
plementation handles data efficiently 
with a LAN and Raima’s customer sup- 
port and documentation is excellent. 
Source code availability and a royalty-free 
run-time is a big plus.” 

Dave Schmitt, President 
Lattice, Inc. 


“Not ‘yet another user-friendly database’, 
it is a DBMS aimed at the technical C 
programmer instead of the non-technical 
end-user”. 
Hal Schoolcraft, Data Based Advisor 
March, 1985 


“On the whole, I have found db_ VISTA 
easy to use, very fast with a key find, and 
powerful enough for any DBMS use I can 
imagine on a microcomputer”. 

Michael Wilson, Computer Language 

September, 1985 


Features 

¢ Multi-user support allows flexibility to 
run on a local area network 

¢ File structure is based on the B-tree 
indexing method and the network data- 
base model 

¢ Run-time size, variable - will run in as 
little as 64K, recommended RAM size is 
256K 

¢ Transaction processing assures multi- 
user database consistency 

¢ File locking support provides read and 
write locks on shared databases 

¢ SQL-based db_ QUERY is linkable 

¢ File transfer utilities included for ASCII, 
dBASE optional 


Operating System & Compiler Support 
¢ Operating system’s MS-DOS, PC-DOS, 
Unix, Xenix, Macintosh & Amiga 
¢ Ccompiler’s Lattice, Microsoft, DeSmet, 
Aztec, Computer Innovations, Xenix and 
Unix 
Independent Benchmark Results 
Eleven key retrieval tests on sequentially 
and randomly created key files. Bench- 
mark procedure adapted from “Bench- 
marking Database Systems: A Systematic 
Approach” by Bitton, DeWitt, and Tur- 
byfill, December, 1983 


Total Retrieval Time of 11 Tests 
db_ VISTA 
Leading competitor 


(671.24 
:1,856.43 





(800) 843-3313 


at the tone touch 700-992 


= 
——_— Saas 


* Limited offer available to end-user purchases directly from Raima Corporation. 
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(continued from page 24) 


equivalents in the library. Lattice 
doesn't have a stat( ) system call, for 
example. It has several functions that 
give you the same information as 
would stat {for example, getfa( ) and 
access( )]. Nonetheless, I'd like to see a 
Unix-compatible function, too. 

I also found a couple of trivial but 
annoying bugs—for example, the en- 
vironment string vector array [point- 
ed to by the envp argument to 
main( )] isn’t terminated in the right 
place (there's one too many entries, 
and the last one is garbage). 

A rather weird bug showed up 
when I tried to redirect-append (>>) 
the output from Lattice-compiled 
programs from the Microsoft-com- 
piled shell. The Lattice-compiled pro- 
grams overwrote the file rather than 
adding text to the end of it. The same 
programs had no problem when 
running under command.com, and 
they also worked fine with simple re- 
direction (>) with the shell. I'm not 
blaming Lattice for this one [seeing as 
Microsoft C has spawn( ) problems, I 
suspect the problem lies there], but 
the problem did arise. 

Finally, Lattice told me that my 
version of the compiler had bugs in 
the in-line 8087 code generation. 
Though these particular problems 
should be fixed by the time you see 
this column, I haven’t received an up- 
date so I can’t verify this. 


Perhaps the biggest potential prob- 


lem with the compiler is the docu- 
mentation. Lattice has returned to 
the insanity of a manual augmented 
witha Technical Bulletin. The manual 
I received was the same one that was 
shipped with Version 2.15. It is sup- 
plemented with a Technical Bulletin 
that is almost the same size as the 
manual. At least there’s an index that 
references both volumes, but it’s still 
annoying to have to go back and 
forth—I always seem to pick up the 
wrong volume. The Technical Bulle- 
tin lists all the library routines in 
strict alphabetical order, which is 
good. The manual itself does not, 
however—routines are grouped by 
function, another annoyance when 
you're trying to find something. 
Moreover, the bulletin doesn’t havea 
functional index (one that groups li- 
brary routines by function and then 
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provides a capsule description of 
each routine). It has an alphabetical 
index with capsule descriptions, but 
this isn’t much use if you know what 
you want to do but don’t know the 
name of the routine that does it. A 


_ note came with the compiler saying 


that the company is working on a sin- 
gle, integrated manual that will be 
sent to all registered users at no 
charge, but I haven't seen this new 
manual yet. 

Another problem is the amount of 
work you have to do to compile a 
program. The Lattice compiler 
comes with a horde of batch files and 
libraries. Even with these batch files, 
compiling is not a one-step process 
because you have to juggle parame- 
ters to the linker too. It’s up to you to 
remember what libraries to link. One 
of the things I really like about the 
Microsoft compiler is the one-step cl 
driver program. It’s an almost exact 
look-alike of the Unix cc driver and 
takes most of the pain out of compil- 
ing. It figures out what libraries to 
link and even invokes the linker for 
you. The Lattice compiler could ben- 
efit immeasurably from the inclusion 
of a similar driver program. 

One final problem: The Lattice 
compiler still can’t generate assem- 
bly-language source files directly. 
Lattice provides you with a program 
that disassembles object modules, but 
I’ve never liked this approach. It’s 
just too awkward to use. With any 
new release of a compiler, it’s critical 
to be able to see the code that the 
compiler generates. That’s the only 
way to tell if an error is yours or if it is 
a bug in the compiler itself. Object- 
module disassembly makes it unnec- 
essarily difficult to get at the assem- 
bly-language source. It’s also another 
program that could potentially intro- 
duce bugs into acceptable object code 
(though I’ve never seen this happen, I 
worry about it). 

In conclusion, I think this version 
of the compiler is significantly better 
than previous versions. Lattice is 
back in the running, at least in terms 
of features and code size. The compil- 
er, in spite of all its improvements, is 
not a clear winner, though. Some of 
the problems (such as the 8087 bugs) 
are the result of a too-early release 
date. Similarly, the library documen- 
tation in its present form is not really 
acceptable (though it’s a lot better 





than some manufacturers’ docu- 
mentation). The compiler is also 
harder to use than I'd like, and 
the library is not as Unix-compatible 
as I'd like. On the other hand, Lattice 
not only gives you root-module 
sources but will also sell you the 
source for the rest of the I/O library. 
(I’ve heard talk of Microsoft doing the 
latter, but I haven’t seen an official 
announcement yet. Microsoft is re- 
leasing the root module with Version 
4.0. Manx gives you all the sources if 
you buy its professional package.) 
Various sources for the error-pro- 
cessing routines are also included 
with the Lattice compiler package. So 
this, too, is a good product. I like it, 
but there’s plenty of room for 
improvement. 


Coming Attractions 

Next month I'll continue looking at 
trees. I'll refine the in-order graphic 
traversal routine a little further, and 
I'll look in depth at AVL balanced 
trees. AVL trees are guaranteed to be 
almost perfectly balanced (the imbal- 
ance is at most one level), so they're 
very useful when you want a best- 
case access time and don’t care if it 
takes a little longer to create the tree. 
I'll also look at the problem of delet- 
ing a node from a binary tree. 


Availability 

The shell is available from DDJ (see 
advertisement on page 78). All the 
code published this month is avail- 
able both on CompuServe (type go 
ddjforum) and, for $25, on an IBM PC- 
compatible disk from Software Engi- 
neering Consultants, P.O. Box 5679, 
Berkeley, CA 94705. The tree routines 
that I'll look at next month are on the 
same disk. 


DDJ 


(Listings begin on page 68.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 2. 


Dr. Dobb’s Journal, July 1986 
























DR. JACK PURDUM 
Get the proven product from the man 
who wrote the books on “C’. 


C Programming Guide 
After reading the Ist edition, Jerry Pournelle (BYTE 
Magazine) said: “I recommend this book...Read it 
before trying to tackle Kernighan and 
Ritchie.” The second edition ex- 
pands this best seller and walks 
you through the C language in an 
easy-to-understand manner. 
Many of the error messages in- 
clude references to this book 
making it a perfect com- 
panion to Eco-C88 for those 
just starting out with C. 


$20 


C Self-Study Guide 
(Purdum, Que Corp.) Designed for 
those learning C on their own. The 
book is filled with questions-answers 
designed to illustrate many of the 
tips, traps, and techniques of the 
C language. Although written to 
complement the Guide, it may 
be used with any introductory 
text on C. 

$17 


C Programmer’s Library 

(Purdum, Leslie, Stegemoller, Que 
Corp.) This best seller is an inter- 
mediate text designed to teach you 
how to write library functions in a 
generalized fashion. The book 
covers many advanced C topics 
and contains many useful ad- 
ditions to your library including 


$22 


CED Program Editor 
CED now supports on-line function help. If you've 
forgotten how to use a standard library function, just 
type in the name of the function and CED gives you 
a brief summary, including function arguments. CED 
is a full screen editor with auto-flagging of source code 
errors, multiple windows, macros, and is fully con- 
figurable to suit your needs. You can edit, compile, 
link, and execute DOS commands from within the 
editor. Perfect for use with Eco-C88. For IBM PC, AT 
and look-alikes. $99.95 


C Source for Standard Library 

Contains all of the source code for the library func- 

tions that are distributed with Eco-C88, excluding the 

transcendentals and functions written in assembler. 
$10 ($20 if not with order) 

Developer's Library 

Contains all the source code for the standard library, 

including transcendental and assembler functions. 

Available with compiler purchase only. 


$25 ($50 if not with order) 





Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 











a complete ISAM file handler. 


THE FIRST PROFESSIONAL 
‘C COMPILER FOR UND 












8087 and 80287 Support. If you have 
one of these math chips, your programs 
will take immediate advantage of it. If 
you don't have one, the code automat- 
ically switches to software floating point. 


Full Screen Editor. The CED editor is a 
full screen editor with multiple windows, 
macro commands, on-line function help, 
plus a full set of editing commands. (Re- 
quires a true IBM PC compatible.) You 
can edit, compile, link, and execute pro- 
grams from the editor which greatly 
reduces development time. 


Full-featured C compiler. Supports all 
C features, data types (except bit fields), 
and operators. 


NOTHING IN 
THIS PRICE 

RANGE EVEN 
COMES CLOSE. 


“Ecosoft’s Eco-C is going to turn some 
major heads.” 


“Eco-C is the first compiler reviewed that 
has clearly begun implementing the 
coming ANSI standard. Eco-C supports 
prototyping.” 

“Eco-C performed well on all the bench- 
marks, generating code that was quite 
comparable to that of compilers 10 times 
as costly.” 







New Language Enhancements. You 
also get prototyping, enum and void 
data types, plus structure passing and 
assignment. 














Tiered Error Checking. All syntax er- 
rors are automatically flagged, but you 
can select the level of “link-like” seman- 
tic error checking you want. 









Complete Standard Library. Over 200 
functions, many of which are System V 
compatible for greater source code 
portability. 






Includes a cc and mini-make™. The 
UNIX-like cc makes compiling pro- 

grams a snap. You can run cc from 
within the CED editor. 


ASM or OBJ Output. You can select 









Screen and Memory Functions. Now 
you can write programs that use color, 
cursor addressing, even ones that let you 
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“The driver program is another strength: 
it compiles and links a list of files and 
provides a simple MAKE capability.” 


“This compiler does handle syntax errors 
much better than average—no ava- 
lanche of spurious messages here.” 


Computer 
Eco-C88 | Lattice | Inn. C86 | Microsoft | Williams 
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Jan., 1986 Computer Language, Feb., 1985, p. 79. Reproduced with permission. 


“Eco-C88 is a high-quality package... 
comparable to systems costing much more.” 


“Eco-C88 is one of the fastest...” 


“It is convenient to use, works well, and 
produces acceptably compact and fast 
programs.” 


oversat- 1 800-952-0472 


5 ORDER FORM CLIP & MAIL TO: Ecosoft Inc., 6413 N. College Ave., Indianapolis, IN 46220 
z L} C Compiler $59.95 

g U C Programming Guide $20.00 

BO C Self-Study Guide $17.00 

8 0 C Programmer's Library $22.00 

Bi 6 CED Program Editor $29.95 


H 5 CSource for Standard Library $10.00 ($20.00 if not with order) 
To use Eco-C88 Release 3.0, you must J >) Developer's Library $25.00 ($50.00 if not with order) 


from: 
Dr. David Clark 
Byte, Jan., 1986 
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have: 
1. An IBM PC, XT, or AT-compatible E SHIPPING $4.00 
computer with monitor. Zz 
2. 256K or more memory. 8 TOTAL (IND. RES. ADD 5% TAX) 
3. Two 360K disk drives, or a hard disk. CF 
4. PC or MSDOS 2.1 or later to include PAYMENT: ~ VISA U MC U AE u CHECK 
the MSDOS linker. 5 CARD # EXPIR. DATE 
Eco-C88, mini-make, memfiles and CED 
are trademarks of Ecosoft Inc. E NAME 
IBM is a trademark of International E ADDRESS 
Business Machines. 
UNIX is a trademark of Bell Labs. B cry STATE 
MSDOS and MASM are trademarks of E 
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a Circle no. 89 on reader service card 











Ada just moved — 
Into a 


smaller place 





We have some very good news Which means you and your 
for you. company can now program in Ada 
You can now get a validated, without tying up a big, expensive 
full Ada® compiler for the IBM“ computer. 
PC AT. From the people who And you should program in 
designed the Ada language. For Ada. And not just because the DoD 


just $3,000. Says SO. 





The DoD mandates Ada for 
their software principally because 
Ada is considerably easier and less 
expensive to maintain. 

Does more reliable and easier 
to maintain code sound attractive 
to you? If not, just look at how your 
programmers are spending 80% of 
their time. 

People who know Ada are call- 
ing it the ee eid language for 

meee the eighties 
Sealand nineties.’ 
ee gy Lhe point is, 
for the price of 4-MB of memory. thinking of 
Ada as “‘the DoD language.’ It’s 
simply because Ada supports good, 
solid software engineering practice. 

And now you can try full Ada 
programming for less than the cost 
of a two week training program. 

The Alsys™ Ada compiler for 
the PC AT is not only validated, it’s 
actually written in Ada. And pro- 
duces code so efficient it executes 
faster than C or Pascal on tested 
benchmarks. 

And if that’s not 
enough, the Alsys PC AT 
Ada compiler runs in pro- @ 
tected mode. So you can 
use the full amount of 
memory available to the 
PC AT. This means you 


can run a program using 
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up to 16 
megabytes 
of memory 
for code 
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without 
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Lastly, this compiler 
comes with a 4-megabyte 
memory upgrade board. 
That, by itself, is worth 
the price of admission. 

At this point, we 
suspect you might be Knowledgeis goed. 
tem p te d to pull out a Especially when it’s free. 
credit card and give us a call. 

Or at least fill out the coupon. 

Write: Alsys, Inc., 1432 Main 
Street, Waltham, MA 02154, 
U.S.A., Telephone: (617) 890-0030, 
Telex: 948536. 

In France: Alsys, S:7e, 29: 
Avenue de Versailles, 78170 La 
Celle St. Cloud, France, Tele- 

. phone: 33(1)3918 12 44, 
Telex: 697569. 

In England: Alsys, Ltd., 
Partridge Hse, Newtown 
Road, Henley-on-Thames, 
Oxon RG9Y 1EN, 

England, Telephone: 
44 (491) 579090, 
Telex: 846508. 


the Alsys PC AT Ada compiler. 


| |] Send me more information about Ada. 


Name 
Title 


| |_| Send me more information about 
| Company 


State Zip 





Ada® is a registered trademark of the U.S. Government (Ada Joint Program Office). IBM® and PC AT are registered trademarks of International Business Machines Corporation. 
Alsys™ is a trademark, service mark, and trade name of Alsys S.A. *Memory board manufactured by Profit Systems, Inc. 


Circle no. 273 on reader service card. 


ARTICLES 


A Forth Standards Proposal: 


Extended 
ontrol Structures 








by George W. Shaw ll 


he control 
TT structures in 
the Forth 83 


Standard leave some- 
thing to be desired. 
This is less stressful 
than it seems as all 
Forth programmers 
or systems implementors simply write their own pre- 
scriptions for the ills that plague them most. Unfortunate- 
ly, of those published, all fail to supply a general solution 
to the problems, few are written in a manner that would 
pass the Standards Team, and none of them are part of 
the current standard. 

Many partial solutions have been made public, but a 
complete solution becomes riddled with new words or 
plagued by unclear or nonstandard syntax. Many efforts 
solve only limited problems or do not maintain compatibil- 
ity with existing control structures. It seems clear that of- 
ten the authors are not aware of the general problem, are 
able to solve only a specific fragment, or overgeneralize 
their solution at the expense of compatibility and clarity. 





The Standard 

Table 1, page 31, lists the syntax of the standard control 
structures. They are fairly simple. The standard does not 
specify the implementation of standard words, only their 
behavior. The code for the control structures in most 
Forth implementations, however, is very close to that 
presented in Listing One, page 82. (For clarity, compiler 
security is omitted.) Note that the listing includes the Sys- 
tem Extension Word Set compiler-layer words >MARK, 


© 1986 by George W. Shaw II, Shaw Laboratories Ltd., 24301 
Southland Dr., Ste. 216, Hayward, CA 94545-3471 
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The structures proposed i in this 


article cover almost every control — 
structure ever preeeed, _ 





>RESOLVE, <MARK, 
and <RESOLVE. The 
System Extension 
Word Set nucleus- 
layer words BRANCH 
and ?BRANCH are as- 
sumed available, as 
well as the nonstan- 
dard run-time words (DO), (LEAVE), (LOOP), and (+LOOP). 
There’s more than one way to strip a parity bit, and the 
standard control structure words are no exception. One 
implementation variant of interest is LEAVE, which is used 
to exit a DO loop. The implementation options were the 
first step in reaching the solution presented in this article. 


The History 

In Forth 79, LEAVE does not exit DO loops directly but 
typically adjusts the DO loop’s parameters so that the next 
time LOOP or +LOOP executes the loop will terminate. 
With the new, better DO-loop operation specified in 
Forth 83, the old LEAVE behavior no longer works. LEAVE 
cannot adjust the DO-loop parameters so that LOOP or 
+LOOP can reliably determine if they should terminate. 
A different behavior of LEAVE is required. Hence, Forth 83 
specifies that LEAVE exits the loop immediately. 

That is fairly straightforward, right? Wrong. Because 
LEAVE must be conditionally executed to be useful (see Ta- 
ble 1), it must have the ability to exit from within any 
structure in which it might be nested, to the point just past 
the next LOOP or +LOOP. Because Forth is very struc- 
tured, during compilation almost all branch and structure 
addresses are simply nested on the stack and resolved 
from the stack. Thus, compiling an “unstructured” branch 
to just after LOOP or +LOOP pierces the nested levels and 
must be handled differently. To further complicate things, 
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the standard specifies that multiple LEAVEs are allowed in 
a DO loop. One of two approaches is usually taken to solve 
the compilation problem. 

In the first approach, the address just after LOOP or 
+LOOP is stored with the loop parameters and is accessed 
when LEAVE is executed. It is easy to compile because 
there is no branch address to resolve during compilation. 
This approach also uses minimal overall memory and 
actually saves memory with multiple LEAVEs compared 
to the second approach. Its limitations are that all LEAVEs 
branch to the same place (not a problem within the stan- 
dard) and additional! loop parameter space is required for 
each nesting level of a DO loop. 

The second approach is to allow each compiled LEAVE 
its own branch address. (See Listing One.) It uses minimal 
overall memory when a single LEAVE exists in a DO loop 
(99 percent of the cases) and just slightly more memory 
(for each branch address) than the first approach when 
multiple LEAVEs exist in a DO loop. This approach also 
uses minimal loop parameter memory and allows each 
LEAVE its own unique destination, albeit nonstandard. It 
appears difficult to compile, but this is not the case. The 
branch addresses are simply maintained in a linked list, 
the LEAVE-LIST, which is resolved by LOOP or +LOOP. 
Linked lists are often needed elsewhere in the Forth sys- 
tem, so the overhead of the compiling words >MARKLIST 
and >RESOLVESLIST may be nonexistent. Once you accept 
the power vs. compilation-complexity trade-off, some 
very useful structures can be built. 

LEAVE naturally appears somewhat unstructured, 
though it does comply with the structured programming 
rule it seems to break most flagrantly. Structured pro- 
gramming requires that each program module have a 
single entry point and a single exit point. Ina DO loop, the 
entry point is at DO, and the exit point is just after LOOP or 
+LOOP. LEAVE branches to just after LOOP or +LOOP. Ina 
puff of logic, LEAVE becomes somewhat structured. 


Common Extensions 

Most Forth implementations extend the standard control 
structures a bit, frequently in the area of BEGIN loops. 
These are fairly simple and obvious extensions that, de- 
spite these facts, are nonstandard. If you replace the cor- 
responding standard style code in Listing One with the 
code in Listing Two, page 82, you have typical extensions. 
These upgrades are significant, but no great shakes. 

The behaviors of the typical extensions are not part of 
the standard but are compatible with it. They allow the 
syntax additions shown in Table 2, right. Code for the 
CASE statement listed in Table 2 is not supplied because it 
is probably not a candidate for standardization because 
its usefulness is limited. OF only allows checking for the 
equality case on a 16-bit value. If the values are equal, the 
code following OF is executed; otherwise execution con- 
tinues after ENDOF. 


Unresolved Problems 

The extensions are useful and implementation is fairly 
simple, so what is the problem? (See Table 3, right.) All the 
problems listed stem from the desire to determine the 
exit trail of a loop. A programmer trying to write stan- 
dard code is currently required to float a flag or value on 
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the stack (heaven forbid you should use a variable) to indi- 
cate the exit trail. Because you cannot exit where you 
need to, you must retest after the loop for what you al- 
ready knew when you were in the loop but had to lose. 

The first three problems apply to standard control 
structures: 


1. Because all LEAVEs branch to the same point, it is impos- 
sible, without retesting a flag or condition, to determine 
which exit was used. 

2. Because LEAVE and LOOP or +LOOP continue after loop 
termination at the same place, it is impossible, without 
retesting a flag or condition, to determine how the loop 
was terminated. 

3. There is no mechanism for directly exiting through mul- 
tiple levels of BEGIN loops or DO loops. The only method 
currently available is to ripple a flag all the way out. 
Knowing how the loop was exited would also be useful 
here. 


The last two problems apply only to common extensions: 


4. Because all WHILEs in a BEGIN loop branch to the same 





Table 3: Limitations of standard control structures and 
common extensions 
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Table 4: Proposed extensions and additions 








Table 5: Proposed standard control structures 
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FORTH STANDARDS 

(continued from page 31) 

point (just after REPEAT or UNTIL), it is impossible to deter- 
mine which exit was used without retesting a flag or 
condition. 

5. When an UNTIL terminates a BEGIN loop containing one 
or more WHILEs, it is impossible to determine how the 
loop was terminated without retesting a flag or condition. 


About 90 percent of the loops coded can be coded with- 
out too much effort. It is difficult, if not impossible, to code 
the other 10 percent without resorting to setting a variable 
or using some other unworthy method. Without solutions 
similar to those below, many programmers have spent 
hours trying to code reasonably efficient complex loops. 


Proposed Extensions 
Having collected this information, what can be deduced 
about the problem? 


1. The exit/termination cases following loop execution 
need to be handled better. 

2. The problems are identical for both DO loops and BEGIN 
loops. 

3. The loop exit word must be executed conditionally to 
be useful. 

4. The THEN following LEAVE is redundant because no 
code between LEAVE and THEN can ever be executed. 

5. Given that the conditional exit test produces only exit 
and don t-exit results, there are only two cases that must 
be made programmable: the exit case and the don‘ exit 
case. 


Given these deductions, the following preferences are 
likely: 


1. Because the problems are the same for both DO loops 
and BEGIN loops, a common syntax would be valuable— 
something such as LEAVE but more flexible. 

2. Because the exit word must be used conditionally, in- 
troduction of the word with an /F-type word is necessary. 
A syntax similar to LEAVE is probable. 

3. Because the THEN after LEAVE is redundant, our word 
should incorporate the THEN function. 

4. Because the destination of our exit branch is deter- 
mined by the programmer, a THEN-type destination 
marker is necessary. 

5. Because the don t-exit condition continues execution 
after the IF-ELSE-THEN Clause (at the old THEN point) and 
execution after exit resolves to execute elsewhere, our 
exit word could be considered analogous to ELSE. 


We might now draw the following conclusion: A condi- 
tional exit with a structure similar to IF-ELSE-THEN would 
be appropriate, with the /F-ELSE part existing inside the 
loop and the THEN part indicating the destination. Fur- 
thermore, the current JF-ELSE-THEN words perform ex- 
actly the desired functions, except that the ELSE-type 
word needs to discard the loop parameters when exiting 
a DO loop. Hence, if a word were added to the /IF-ELSE- 
THEN family to perform the appropriate ELSE-type func- 
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FORTH STANDARDS 
(continued from page 33) 


tion, a complete structure and syntax would exist. 

The proposed word is LEAVES and belongs to the /F- 
ELSE-THEN family. The name is appropriate, being similar 
to LEAVE. It reads well, and it expresses immediacy. The 
word OUTSIDE is also proposed to allow exiting several 


levels of BEGIN loops or DO loops directly. Examples of. 


their uses are represented in Table 4, page 32. The addi- 
tional words presented in this article are proposed to be 
part of the standard as a new word set, or even better as a 
new level above the existing Required Word Set. 


Implementation 

As described above, the Forth 83 LEAVE was not obvious to 
implement. It does, however, open the door to the control 
structure implementation solution. Thanks to David Har- 
ralson,whom | met at the 1985 FORML Conference in Asilo- 
mar, California, for extending the concept. He presented 
a paper there 2 that seemed to solve all the problems (and 
more) but completely lacked compatibility with the cur- 
rent standard. We formed a working group at the meet- 
ing to discuss the problem, spent several hours on the 
telephone, and exchanged several letters during the 
months that followed. His functional but nonstandard im- 
plementation, combined with a partial solution I had al- 
ready achieved,? evolved into the results seen here. By 
working together we were able to extract the key con- 
cept from his paper: All forward references are to be 
maintained in linked lists during compilation. 

We actually took his paper and worked backward, 
eliminating the overgenerality of his structures that pre- 
vented them from being standard compatible. I then re- 
solved the syntax difficulties and decided upon behavior- 
al rules for LEAVES and OUTSIDE. Finally, I spent many 
hours staring at the walls and scrawling on paper until 
one by one the implementation problems of the more 
conservative standard-compatible syntax were resolved. 
Out of this also came an almost free, flexible CASE state- 
ment. Listing Three, page 82, is the result. 

As mentioned, all forward references are maintained 
in linked lists. Harralson prefers to keep the list head 
pointers on the stack; I prefer to use variables (sometimes 
a useful poison). I find the variable implementation much 
more clear even though it may be slightly larger. It is also 
more easily modifiable if additional forward referencing 
structures are added in the future.* 

Three words need to be added to the System Extension 
Word Set to handle forward compiled linked lists: 
> MARKLIST, >RESOLVELIST, and >RESOLVESLIST. (See 
Listing Three.) Notice that the first and last words are 
already in the system if approach 2 (Listing One) is taken 
to implement the standard LEAVE operation. If the extend- 
ed control structures presented here are adopted, I would 
expect that all three words have a very good chance of 
becoming standard. 

Three lists are maintained by the system: 


1. The IF-LIST links all IF and ELSE branches. These 


branches are resolved by ELSE and THEN respectively. 
The IF-LIST is also used to hold the unresolved LEAVES 
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branches once outside the loop structure. This is how 
LEAVES can be resolved by ELSE or THEN. 

2. The LEAVES-LIST contains all LEAVES branch addresses 
while inside a loop. The list is transferred to the IF-LIST 
after the loop end is compiled to allow the LEAVES to be 
resolved by appropriate ELSEs or THENS. 

3. The LEAVE-LIST is a list of LEAVE branch addresses, main- 
tained for compatibility with the current LEAVE function. 
The list is resolved by LOOP, +LOOP, REPEAT, and UNTIL. 
LEAVE can be used inside either DO loops or BEGIN loops. 


Another variable maintained by the system is LEAVE-CF. 
This variable is the key that allows LEAVE and LEAVES to 
work in both BEGIN loops and DO loops. CASE, which is 
used by BEGIN, and DO set the value of LEAVE-CF to BRANCH 
and LEAVE respectively. LEAVE-CF thus contains the com- 
pilation address (code field) of the proper run-time rou- 
tine to be compiled by LEAVE or LEAVES, depending upon 
whether a BEGIN loop or a DO loop is being compiled. The 
compilation addresses of other exit routines can, of 
course, be stored in LEAVE-CF. This allows LEAVE or LEAVES 
to be used to exit almost any structure added to Forth. To 
allow proper structure nesting, all list heads (/F-LIST, 
LEAVES-LIST, and LEAVE-LIST) and the value of LEAVE-CF 
must be saved during compilation and the lists set to 0 at 
the beginning of each new structure (BEGIN, DO, and 
CASE). The heads’ values and LEAVE-CF are restored at the 
end of each structure (UNTIL, REPEAT, LOOP, +LOOP, and 
ENDCASE). 

Comparing the complexity of the new implementation 
of the IF-ELSE-THEN structure in Listing Three to that in 
Listing One, you can see that there is little significant dif- 
ference. Also, comparing the complexity of the new BE- 
GIN-WHILE-REPEAT to that in Listing One (ignoring LOO- 
PEND for a moment) or better yet to the commonly 
extended version in Listing Two, you can see that here too 
there is little significant difference. The proposed struc- 
tures’ complexity is even less in one area, aS WHILE is now 
an alias for IF. The DO loop words also follow this tradition 
with no significant difference in complexity (LOOPEND 
somewhat aside). 

Capability is not free, and complexity rears its ugly 
head in LOOPEND. First, within LOOPEND, the backward 
branch is resolved to the beginning of the loop, and then 
an entire linked list of branches is resolved to the point 
immediately following the end of the loop. For DO loops 
this is the LEAVE-LIST, and for BEGIN loops it is the IF-LIST 
(to resolve the WHILE exits). BEGIN loops also resolve the 
LEAVE-LIST after LOOPEND. If any LEAVES were compiled, 
the list heads are restored and then the end otf the LEAVES- 
LIST is found and is linked to the front of the IF-LIST. The 
new longer list replaces the /F-LIST. This slightly complex 
but necessary process allows THEN to be used to resolve 
LEAVES. The process might be simplified if two additional 
words were added to replace ELSE and THEN in resolving 
operations on the LEAVES-LIST. This unfortunately inter- 
feres with the operation of OUTSIDE. Harralson and I feel 
that these are simply two more words added to remove a 
small amount of complexity that can be hidden within 
the bowels of the system word LOOPEND, especially when 
the IF-LEAVE-THEN syntax must be retained for compati- 
bility with the current standard. 
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FORTH STANDARDS 
(continued from page 34) 


The last looping-related word is OUTSIDE. This word 
must keep the branch address of the most recent LEAVES 
available to be resolved outside the next level of loop. This 
is accomplished by simply unlinking the top item from 
the IF-LIST into the the top of the LEAVES-LIST. Outside the 
next level of loop, the branch address will be transferred 
back to the IF-LIST again by LOOPEND. This process can be 
repeated as necessary. When multiple LEAVES are used, 
OUTSIDE can be placed between LEAVES resolutions to 
work upon the correct one. OUTSIDE must also ensure 
that LEAVES unnests the correct number of DO-loop levels. 
Unfortunately, I cannot disclose this mechanism because 
it is proprietary to my company’s product. Note that be- 
cause of this difference in unnesting requirements, the 
listed code for OUTSIDE will not properly unnest through 
a nested mixture of loops. Though easy to solve, this too is 
proprietary. 

The proposed structures give you an almost free imple- 
mentation of a CASE statement. It compiles in a manner 
exactly equivalent to nested /JF-ELSE statements but with a 
more readable syntax and a single syntactic nesting level. 
This is equivalent to the else if clauses available in C, Pascal, 
Ratfor, and Ada.‘ It can also be implemented more directly 
by implementing THENS. (See Listing Four, page 83.) Simi- 
larly, the ANDIF proposal can be easily implemented by 
defining ELSES.$ (See the examples in Listing Five, page 83.) 

The new LEAVES structure seems even more unstruc- 
tured than the old LEAVE. This is not so. The single exit 
point of the module simply needs to be redefined. The 
program flow rejoins at the THEN of the outsidemost 
LEAVES—hence one entry point, one exit point. In anoth- 
er puff of logic, even LEAVES is somewhat structured. 
Working with the same rules, when OUTSIDE is consid- 
ered, the module becomes the outsidemost DO to the outsi- 
demost THEN, which resolves a LEAVES within. It is a 
much harder logical stretch, but even when OUTSIDE is 
considered, this oft-broken rule of structured program- 
ming is somewhat fulfilled. 


Conclusions 

Listing Five lists examples of almost every control struc- 
ture proposal published or presented to date and the cor- 
responding solution using the structures proposed in this 
article. All the bases seem to be covered. Some proposals 
may have been omitted, but hopefully none represent 
structures that are not adequately covered by the includ- 
ed proposals. 

Using linked lists for all forward references might be 
questioned. Creating a new /F-type structure for the 
LEAVES operation would have solved that class of prob- 
lem just as well, though it would have added additional 
words that are not really necessary. The almost-free CASE 
statement would vanish in an imposed limitation of syn- 
tax. This would complicate OUTSIDE and preclude the 
useful ELSES and THENS operations without adding words 
to mark their limits. (See the <STEPS example in Listing 
Five.) 

Table 5, page 32, summarizes the syntax of the control 
structure word set proposed for standardization. It is com- 


36 


pletely compatible with the current standard control 
structures and the most common nonstandard extensions. 
It appears to emulate all the tricks that have been proposed 
to date for these classes of control structures. It implements 
in 19 words (28 including the System Extension Word Set) 
all the described functions compared to 33 words (41 in- 
cluding the System Extension Word Set) to summarize the 
other proposals. The current standard has 11 words (17 
including the System Extension Word Set). The material in 
this article was presented to the March 1986 meeting of the 
San Francisco Chapter of the Forth Interest Group, and the 
members voted two to one in favor of standardization. I 
hope the enthusiasm continues. 
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Mr. Park’s improvement on the theme is interesting because of his approach. Instead 


of writing a traditional program for the simulation, he has created an array of intelligent 
cells using an inference engine written in Expert-2, a superset of FORTH. 
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that of its neighbors. The grid of cells is represented by a graphic display on your 


computer screen. After setting up an initial configuration of living and dead cells, 


you start the simulation. The patterns will change on the screen as cells live and die. 
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Forth Goes to Sea 


his article describes an imple- 

mentation of the Forth lan- 
guage for the control of a micropro- 
cessor-driven laboratory instrument. 
The laboratory in this case is the 
ocean; the processor is the Motorola 
MC146805, a CMOS 6805 chip. I imple- 
mented a ROM-based Forth for this 
chip following the Forth 79 Standard 
as Closely as possible, but the final 
version (Listings One and Two, pages 
84 and 88) has several differences 
from the standard. The deviations 
from the 79 Standard are because 
there is no mass storage and all the 
code must reside in ROM. Memory 
constraints are also important be- 
cause everything—the managing 
software and the data itself—must fit 
within 8K. 


The RAFOS Float System 
Our research group in the Graduate 
School of Oceanography at the Uni- 
versity of Rhode Island has spent the 
last two years studying the Gulf 
Stream current in the Atlantic Ocean. 
The primary instrument we have 
been using is known as a RAFOS float. 
The origin of the name is some- 
what convoluted. In the ocean there 
is a sound conducting channel, like a 
waveguide, called the SOFAR chan- 
nel. Its depth varies, but in the Atlan- 
tic it’s about 800 meters deep. Early in 
the 1970s, this channel was utilized in 
a neutrally bouyant float. These ear- 
ly floats drifted in the channel emit- 
ting sound pulses at precisely known 
times. Listening stations on shore 
picked up the signals, and by triangu- 
lating from several stations, the float 
positions were determined. These 
floats were called SOFAR floats. We're 
now using new floats that listen pas- 
sively to fixed sound ‘sources. They 
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by Everett Carter 


Forth has a long his- 
tory in process con- 
trol and data acquisi- 
tion, but its use in 


oceanography is new. 


thus work in the opposite fashion 
from SOFAR floats, hence their name 
RAFOS, which is SOFAR spelled back- 
ward. 

The RAFOS float is made of Pyrex 
glass, is about five feet long and about 
four inches in diameter, and looks 
like a big test tube. Inside it are vari- 
ous sensors, batteries for power, a ra- 
dio, and an MC146805 microprocessor 
that controls them all. 

Our sampling scheme involves tos- 
sing the float into the water (where- 
upon it sinks to the proper depth) and 
letting it drift freely for 30 to 45 days 
in the Gulf Stream. After the allotted 
time, the float drops its ballast weight 
and comes to the surface. It then 
turns on the radio and transmits its 
data to shore via satellite. We make 
no attempt to recover the float—it 
would cost more in ship time than it 
cost us to build the float. 

Beginning last fall, we have been 
contemplating how to utilize the 
next generation of floats. These floats 
will be used as before but with adap- 
tive sampling strategies or for shorter 
intervals interactively with a ship. 
An interactive scenario could in- 
volve, for example, putting a few 
floats in for a few days and recover- 
ing them from the same ship, which 
then puts in more floats in a way that 
depends upon the data received from 
the first floats. 

The original RAFOS floats were all 
programmed in assembly language, 


and all the floats had the same pro- | 





gram. Assembly code for the interac- 
tive floats would be a nightmare 
(imagine writing machine code late 
at night, while seasick, so you can do 
the experiment the next day!). Forth 
was the obvious solution to the prob- 
lem of how to get the sampling pro- 
gram into the float efficiently. 


The MC146805 Processor 

As mentioned previously, the proces- 
sor in the float is the Motorola 
MC146805, which is basically a CMOS 
6805. The 6805 is a 6800 that has been 
specialized for process controlling. It 
was the only CMOS alternative to the 
1802 when the floats were first de- 
signed several years ago. It is not the 
ideal choice for the implementation 
of Forth. In specializing from the 6800 
to the 6805, half the registers and sev- 
eral instructions were thrown away 
and the stack could not be accessed (it 
saves only return addresses for calls 
and interrupts and the registers dur- 
ing interrupts). 

One class of instructions that are 
particularly useful in implementing 
Forth are the indirect ones. An indi- 
rect jump instruction causes the pro- 
cessor to jump to an address that was 
pointed to by the contents of a loca- 
tion, and that location is identified by 
a register or other memory location. 
Some processors have a whole family 
of indirect instructions, jumps, reads, 
writes, and so on. Some of these in- 
structions I learned to live without; 
others I had to emulate in self-modi- 
fying software. 

The 6805 comes in several versions. 
The one Iam using has a memory ad- 
dress space of only 8K, which puts 
severe restrictions upon the system 
because everything—the operating 
system, the application program, the 
memory-mapped sensor ports, and 
the data—must all coexist in only 8K. 
In the early floats that were pro- 
grammed in assembly language, the 
code occupied the top 4K (from 1000 
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hex to 1FFF), and the data was stored 
in the lowest 4K. This Forth imple- 
mentation tries as much as possible to 
preserve the historical partition (it 
nearly succeeds). 


The Format of the Header 
In order to conserve the system's 
memory usage, the structure of the 
headers is modified slightly. Only the 
character count and the first three 
characters are saved in the header. 
This is as if the Forth variable WIDTH 
was set to 3 (note that WIDTH does not 
explicitly exist in this implementa- 
tion and that all words that would 
use it treat it as a constant that is equal 
to 3). The count byte has the follow- 
ing structure. The natural character 
count is in the low 5 bits (hence allow- 
ing words up to 31 characters long). 
The sixth bit is the smudge bit; it 
equals 1 when the word is smudged, 
thus preventing a match by —FIND 
and similar words. The seventh bit 
has no defined use. The eighth bit is 
normally 0 but is set to 1 for immedi- 
ate words (this bit is called the prece- 
dence bit). Although strictly this 
structure does not violate the stan- 
dard, it is not the usual one. Tradi- 
tionally, bit 8 is always set to 1 and bit 
7 is the precedence bit. The tradition- 
al structure was not used in order to 
make WORD smaller—WORD masks 
out the high-order bit of every byte 
that it examines in a given word's 
name field when it is trying to find a 
match. In the traditional format, the 
count byte has a different mask from 
that of the rest of the name field. 
The format of the header is thus 
the count byte, followed by the first 
three characters of the word, a point- 
er to the name field (that is, the count 
byte) of the previous Forth word, and 
finally the actual code for the word. 
Note that last point. After the link is 
the actual code—that is, the code 
field, not the code field address. 


The Inner Interpreter 

The Forth interpreter is implement- 
ed as a direct threaded interpreter 
because of the limited ability of the 
6805 processor to perform address in- 
direction. My reading of the standard 
is that it does not specify the type of 
interpreter you should use, but the 
interpreter is usually implemented 
as an indirect threaded interpreter. 
The direct threaded approach means 
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that the code field is not pointed to by 
a pointer, but the code actually be- 
gins where a traditional CFA pointer 
would normally be (so that ' returns 
the address of the code field, not the 
address of the pointer to the code 
field). This means that you must exer- 
cise care in using Forth words that 
manipulate addresses (CFA, PFA, NFA, 
‘and so on) if you are accustomed to 
using more traditional Forth imple- 
mentations. 


Forth in ROM 

Even though this implementation of 
Forth is designed to be ROM-based, 
some code resides in RAM for special 
reasons. The 6805 has special, fast in- 
structions for access to the base page 
(0000 to OOFF hex). The instructions are 


LVS 
WORD 
OF HERE 
STATE CONTEXT 
Ce os C, 
LATEST ALLOT LIT 
SWAP — SP! CR 
IMMEDIATE —FIND 
2r [ 
a U* 
<# 
R@ ROT 
ABS 
te ae 
# OR 
#S 


EXIT 
<NUMBER> 


[COMPILE] . 
THEN — 

TIB | 
= +LOOP- 

| _ 


Table 1: List of initial Forth words 


DP 
START 
BASE. 


FORTH | 


CONTEXT 
CURRENT 


EXECUIE. . 
DROF 
ohh 


COUNT =. 0 | ee 
le DEFINITIONS 


OVER 


VARIABLE 
AGAIN 
WHILE 
‘STREAM | 
LOOP 


fast because fewer bytes are used in 
those instructions and because some 
of the base page resides physically 
within the processor chip itself. Be- 
cause the processor will spend the 
bulk of its time in the inner interpret- 
er, the inner interpreter is designed 
to reside in the base page (starting at 
0080 hex). 

All the self-modifying code must 
reside in RAM in order to work; this 
code immediately follows the inner 
interpreter in RAM. The limited in- 
struction set of the 6805 required the 
simulation of some instructions (such 
as indirect jumps) through the use of 
self-modifying code. In many places I 
found I needed two routines—one to 
load register A into a pointed-to ad- 
dress (an indirect write) and one to 


BL 
2 
-HLD- 


QUIT 
TOGGLE 


NEGATE 
- COMPILE = 
-CONSTANT - 
UNTIL  =sCOCSSF 
_ REPEAT =. i 
00> - <LOOP> 
+1 OOP DNEGATE 





the dictionary pointer | L 

where the outer interpreter is : 

initial base is hex Apes that this | is a 

single-byte variable) © se 
points to the NFA of the | last  ctonary — 
entry (1) ee — 
points to FORTH 

points to FORTH | 





Table 2: The initial values of the system variables. All values 


are hexadecimal. 
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FORTH AT SEA 
(continued from page 41) 


get the value at that address into A (an 
indirect read). I called these routines 
LOAD and GET in the assembly listing. 
For generality, I wrote them to in- 
clude a possible offset defined by reg- 
ister X. Many routines will define the 
16-bit address defined at LOAD +1 or 
GET +1 and call LOAD or GET. Because 
they get modified, LOAD and GET are 
in RAM, and because they can be 
called frequently, they are in the 
base page. 

The self-modifying code goes be- 
yond the base page, but I made an 
effort to place the most frequently 
called portions within the base page. 
The predefined user variables 
(FENCE, STATE, FORTH, CONTEXT, CUR- 


RENT, BASE, HLD, DP, IN, and OUT) and | 


RAM/ROM #1 









FORTH RAM CODE 


Figure 1: Memory map 
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FORTH 
| ROM #1 
FORTH 
ROM #2 


FORTH STACK 
RETURN STACK 
INPUT BUFFER 


the system variables UP RP and SP) 
also reside in the base page. 

When the system is booted, reset, 
or upon execution of COLD, the initial 
values of the user and system vari- 
ables, the inner interpreter, and the 
self-modifying code are all copied 
from ROM to their executable loca- 
tions in RAM. A note about how the 
code was developed: The assembly 
code was cross assembled on a VAX 
750 using the XASM6805 cross assem- 
bler from Intelligent Devices of Min- 
nesota (P.O. Box 492, Anoka, MN 
55303). The IDM cross assembler does 
not allow the assembly of code at one 
location for execution at another. 
The code was thus written for its tar- 
get address, then the hexadecimal as- 
sembly output file (which is in Motor- 
ola’s S1 format, similar to the CP/M 
HEX format) was edited manually to 


1FFF 


1800 
17FF 





1000 
OFFF 
<— 0FOO-OFFF 


-—  OOEQ_OEFF 
<— 0D80-ODFF 


OD7F 





AVAILABLE FOR WER 
0800 


O7FF [ APPLICATION (2992 BYTES) 


400 < INITIAL DICTIONARY POINTER 





0000 


change the compilation address for 
the dozen or so lines that needed 
changing. 

The initial vocabulary consists of 
the words listed in Table 1, page 41; 
the system variables are initially set 
to the values shown in Table 2, page 
41. The vocabulary is not a full Forth 
word set, but most of the important 
(non-mass-storage) words are there. 
We usually upload all the MOD arith- 
metic words from a microcomputer 
that we use as a terminal when we 
use the float; this is how the data- 
sampling words get loaded as well. 
The initial system memory map is 
shown in Figure 1, left. The variable 
START (at address 002E hex) does not 
have a header. It is a warm boot exe- 
cution vector (that is, the address at 
that location is executed when QUIT is 
invoked), and normally it points to 
the start of the outer interpreter. A 
word that is pointed to by START 
should be a Forth word that is an infi- 
nite loop (such as a BEGIN... AGAIN 
structure) because it is effectively the 
outer interpreter once QUIT is execut- 
ed. Note that QUIT is a warm boot; it 
does a partial system reset. It clears 
the stacks and sets the system state to 
execute, then it goes to the address 
pointed to by START. COLD runs the 
same code as the power-up or reset 
interrupt does—it resets the dictio- 
nary pointer and FORTH to their 
power-up default values and sets the 
CONTEXT and CURRENT vocabularies 
to FORTH. (All this is done by execut- 
ing the ROM-to-RAM copy described 
above.) It then falls through to QUIT. 


Error Checking 

In order to minimize the size of the 
system, only a minimal amount of er- 
ror checking is implemented. If the 
system does not find a word in the 
dictionary and it cannot subsequent- 
ly interpret it as a number, that word 
is echoed back to the terminal, fol- 
lowed by a question mark. When this 
happens the user stack is unaffected, 
but the FORTH return stack is cleared. 
Clearing the return stack effectively 
denests the system from any process 
out to the outer interpreter. The sys- 
tem is then waiting for user input. If 
the system was in the compiling state 
when the error occurred, it will be in 
the execution state after the error 
message. This means that if a word 
was not found during compilation, 
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FORTH AT SEA 
(continued from page 42) 


you have to start the definition from 
the beginning and not from the point 
where the error occurred. This be- 
havior for compilation errors is com- 
mon to many Forth implementa- 
tions. 

It should be noted that the word 
that was being compiled into the dic- 
tionary at the time is in the dictionary 
in a smudged state. Normally this is 
alright because the word cannot be 
found and accidentally executed. If 
FORGET has been compiled, though, 
the partially compiled word cannot 
be forgotten unless SMUDGE is execut- 
ed before any more manipulation of 
the dictionary occurs. 

Stack errors are not announced. 
This is not as bad as it first sounds be- 
cause both the return stack and the 
user stack are implemented as 128- 
word circular queues. Being circular, 
a runaway stack cannot damage any- 
thing but the stack itself. With 128 
words in the stack, it’s not likely that 
anything useful in the stack would be 
corrupted by a stack error. It does 
mean, though, that if a program pops 
data off an empty stack, it will contin- 
ue on, using whatever it happened to 
find as data, without ever telling you 
that there was no data there in the 


first place. 

Other error messages are not im- 
plemented. Specifically, these 
include: 


1. Incomplete definitions—Improp- 
erly paired DO...LOOP, IF... THEN, 
BEGIN ... UNTIL, and similar struc- 
tures are not detected. Words that are 
compiled with incomplete structures 
will probably compile with no trou- 
ble, but trying to execute such a word 
will almost certainly crash the 
system. 

2. Inappropriate execution—At- 
tempts to execute words that are 
compile only, such as DO... LOOP, 
are not flagged. Trying to execute 
such words will crash the system. 

3. Defining a word that already ex- 
ists—In a normal Forth system, rede- 
fining a previously existing word 
causes a nonfatal warning message to 
be issued and compiling may contin- 
ue. In this system, no message of any 
sort is issued and the continued com- 
piling is allowed. 


+ 


Major Deviations from the 
Standard 
In a few cases, I deviated from the 
defined 79 Standard for special rea- 
sons. In the spirit of Mountain View 
Press’ Forth implementations, one 
thing that I did was replace words of 
the form (xxx) with <xxx>. This is 
because the close parenthesis in (xxx) 
words causes trouble with Forth 
comments. 

<NUMBER>, the word that tries to 
interpret input as a number, does not 
recognize double-precision num- 
bers. This is a violation from the stan- 
dard and was done in order to reduce 
the size of the system. Also, <NUM- 
BER> takes an address as input and 
returns either a false flag (0) if the 
conversion fails, or it returns a true 
flag ( hex FFFF) and an address of the 
result if the conversion succeeds. The 
Forth word NUMBER would be de- 
fined as the following (except for the 
matter of double-precision men- 
tioned above): 


: NUMBER <NUMBER> NOT IF ABORT” 
NOT RECOGNIZED” THEN ; 


The word NOT is defined in a non- 
standard way. It returns the one’s 
complement of the value on the 
stack. Normally NOT isa synonym for 
0=, which returns a true (hex FFFF) if 
a 0 ison the stack and a false (0) other- 
wise. This version of NOT will allow 
proper execution of standard Forth 
words that use NOT to complement 
the result of a _ logical test 
(...9=NOT...). If, however, a stan- 
dard Forth word uses NOT when 0= 
is actually meant (for readability rea- 
sons perhaps), then the program will 
not behave properly. This change 
was made because it was thought to 
be more useful for process-control 
routines to have a one’s complement 
word directly available. 

The word BASE is a 1-byte variable 
instead of the usual 2-byte form. This 
means that BASE should be accessed 
and manipulated by using C@ and C! 
instead of @ and !. Similarly, >IN is a 
1-byte variable. The word TIB is a 
constant, not the usual variable, so 
the location of the input buffer can- 
not be changed. 


The Future 
To date (March 1986) none of the 
Forth-controlled floats have actually 





gone to sea. So far they have been 
used on the lab bench to evaluate the 
new sensors that will be on board the 
floats that are to go into the water this 
coming fall. 

The lab bench floats are not in their 
glass tubes, so communicating with 
the CPU is just a matter of plugging 
into the I/O port (port B in the listings). 
With the seagoing floats, the details of 
the communication link are still an 
open issue. The link will either in- 
volve a watertight connector that goes 
through the glass wall or orthogonal- 
ly mounted (in order to avoid interfer- 
ence) optical links. 

A second vital use that these floats 
are serving is to teach the rest of the 
research group the Forth language. 
Forth has a long history in process 
control and data aquisition, but its use 
in oceanography is relatively new. 
Having RAFOS float CPUs with Forth 
ROMS readily available has proved in- 
valuable as a teaching aid for learn- 
ing Forth. 

As a final footnote, I should point 
out that the code in Listings One and 
Two is the result of one person’s total 
immersion in the implementation 
process. As such it could very well 
suffer from the lack of multiple criti- 
cal perspectives on its design. I would 
welcome critiques of the result. 
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ARTICLES 


Forth Windows for the 





indows provide a method 
Ww of presenting information 
to computer users in an 


easy-to-use, natural manner. The 
window environment can_ be 
thought of as an emulation of a desk. 
The analogy is that you are working 
on something that resides on the top 
of a pile of paper. If you are inter- 
rupted, new work is placed on that 
pile, covering up the work you were 
doing. When you finish with this 
new work, you move it off your desk 
and continue where you left off on 
the work you were doing before. 
This interruption and restoration of 
the working environment is the con- 
cept on which the window software 
metaphor is based. 

This article illustrates the use of 
windows in the Forth environment. 
The window package I present here 
uses the F83 dialect of Forth devel- 
oped by Laxen and Perry. The pro- 
gram is based upon and inspired by 
the article entitled ‘A Simple Window 
Package,” by Edward Mitchell, which 
appeared in the January 1984 issue 
of DDJ. In addition to the primary top- 
ic of windows, I'll also discuss some 
other subjects, including MS-DOS 
memory management, manipulation 
of the IBM PC hardware, interfacing 
Forth to the PC’s BIOS and BDOS, and 
Forth 8088 assembly language. 

People with computers other than 
an IBM PC (or a true compatible) and 
people using other dialects of Forth 
may need to make some changes to 
the program in order to get it to work 
on their systems. The concepts pre- 
sented in this Forth implementation 
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IBM PC 


by Craig A. Lindley 


The demo program 
shows how to inte- 
grate the window 
package with an 
application. 


of windows, however, can be ap- 
plied to an implementation in any 
other computer language, including 
C or Pascal. 

The program presented in Listing 
One, page 96, is basically a tool await- 
ing your use; it is meant to be inte- 
grated into an application program. 
The number of windows you can 
have on your display screen at one 
time is a function only of the amount 
of memory you have in your com- 
puter—you are not limited by the 
available memory in the 64K seg- 
ment in which Forth is running. The 
demonstration program provided in 
the listing shows how to integrate an 
application (the demo itself) with the 
window routines. 


Memory Management 

It's important to understand how Ms- 
DOS performs memory management 
if you are to understand how the win- 
dow package works and why it isn’t 
shackled by the 64K segment con- 
straint imposed on the Forth system. 
Memory management is not neces- 
sary just because I’m using Forth for 
this program; it’s necessary for any 


program, in any language, that uses | 


more than 64K in its operation. 










Upon receiving control from MS- 
DOS, an executable program is given 
all the memory available in your 
computer for its use, whether or not 
your program requires this much 
memory. Under these conditions MS- 
DOS cannot manage memory because 
there is none left to manage—it all 
belongs to your executable program. 
In order for MS-DOS to manage the 
memory, your program must give 
back to the operating system the 


| memory it doesn’t need. This is done 


by using the setblock function of MS- 
DOS. By informing MS-DOS of the total 
memory requirement of your pro- 
gram, your allocated memory block 
will shrink and the MS-DOS pool of 
free memory will be given the re- 
mainder of the available memory in 
your computer. This free pool of 
memory can then be managed for 
your uses by MS-DOS. 

Three special words in the Forth | 
window package deal with MS-DOS 
memory management. They are 
setblock, calloc, and free. Setblock 
shrinks the memory block allocated 
to the Forth program of which it is a 
part. The setblock word defined on 
screen 7 accepts as a parameter the 
number of bytes required by the ap- 
plication (the Forth system). It returns 
a true flag if the memory block size 
adjustment was successful, or it re- 
turns a false flag, error code, and the 
maximum number of 8088 para- 
graphs availabie if the adjustment 
was unsuccessful. The error codes 
correspond to those listed in the DOS 
manual. 

In my window application, the 
word initialize calls setblock and 
passes it a —1 (FFFF hex) as the num- 
ber of bytes to be set aside for Forth’s 
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use. In other words, Forth is given a 
full 64K segment in which to run, 
thereby excluding MS-DOS memory 
management from that area. Forth 
owns all of this 64K block. 

After setblock gives MS-DOS some 
memory to manage, calls to the Forth 
word calloc cause MS-DOS to provide a 
memory area for your use. This 
memory area comes directly out of 
the free pool and belongs to the appli- 
cation until it is given back. The word 
calloc accepts as a parameter the 
number of bytes required for a new 
memory block. It returns a true flag 
and the 8088 segment address if suc- 
cessful, or it returns a false flag, error 
code, and maximum number of para- 
graphs available from the free pool, 
if the allocation fails. 

Just as memory blocks are given 
out by MS-DOS, they can also be given 
back when an application has fin- 
ished with them. The Forth word 
free performs that function in the 
window package. Any memory 
block that has been allocated previ- 
ously can be released. The word free 
accepts the segment address of the 
block to be returned and returns ei- 
ther a true flag if successful or a false 
flag and error code if not. 

You should keep two things in 
mind when dealing with MS-DOS 
memory management functions. 
First, a program should never write 
into any memory it does not explicit- 
ly own—for example, programs 
must be sure the stack is in an area of 
memory owned by the application. 
Second, never try to release memory 
that was not allocated by MS-DOS orig- 
inally. Violating either of these rules 
can result in unexplained behavior 
on the part of your computer. 

The memory management words 
used in this window program all 
make calls to MS-DOS int 21h using the 
appropriate function codes. MS-DOS 
performs the requests, if possible, 
and the Forth words pass back flags 
on the stack indicating the status of 
the requested operation. 


Low-Level Assembly- 
Language Words 
Approximately one third of all the 
Forth words in this window package 
are written in 8088 assembly language 
(see Tables 1 and 2, pages 47 and 48). 
There are two reasons for this. First, 
the F83 package used to develop this 
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chra char/attrib count -- 

Writes (count) characters with attributes to the screen starting at the current 
cursor position. The cursor position is left unchanged. This word calls BIOS int 
10h using function code 9 to perform its operation. 


chra+ char/attrib -- 

Similiar to chra except only a single character with attribute is written and the 
cursor position is advanced automatically. BIOS int 10h is again used to first 
write the character and attribute and then to read and advance the cursor 
position. 


rdchra -- char/attrib 
Calls BIOS int 10h with function code 8 to return the character and attribute of 
the character currently under the cursor. 


scrlup xul yul xir ylr count attrib -- 

Scrolls up the area of the screen bounded on the upper left by xu/ and yul and 
on the lower right by x/r and yir. The window is scrolled up (count) lines, and the 
blank lines scrolled in from the bottom are given attribute (attrib). If count is 
specified as 0, the whole window is cleared. 


calloc # of bytes -- seg T -- max paragraphs error code F 

Initiates a memory allocation request to MS-DOS. If the memory requested is 
available, the segment address and a true flag will be returned. If enough mem- 
ory is not available, then an error code and a false flag are returned along with 
the maximum number of paragraphs available. 


free seg -- T -- error code F 

Attempts to release to MS-DOS a block of memory previously allocated via 
calloc \f successful, a true flag is returned. If unsuccessful, an error code and a 
false flag are returned. 


setblock # of bytes -- T -- max paragraphs error code F 

Asks MS-DOS to shrink or expand the unassigned memory until the 

application program has the number of bytes requested for its use. If the opera- 
tion is successful, a true flag is returned. If not, an error code and a false flag 
are returned, along with the maximum number of paragraphs available. 


e@ seg addr -- n 

Returns to the top of the parameter stack the data (n) at address (ada) in mem- 
ory segment (seg). | call this word extended fetch because it has access to the 
complete memory space and not just the 64K segment in which Forth runs. 


e! n seg addr -- 

Stores the data (n) at address (addr) in memory segment (seg). | call this word 
extended store because it has access to the complete memory space and not 
just the 64K segment in which Forth runs. 


rdcur -XY 
Uses BIOS int 10h function code 3 to return the x,y location of the cursor. 


save_h, save_w, save_ptr, save_si, save_ds -- addr 

These Forth words are used as temporary storage locations during the 
scr—>buf and buf— >scn routines. When executed, they return the address 
of a 2-byte storage area. The storage area save_his used to save the height 
parameter, save_w the width parameter, save_ptr the address in screen mem- 
ory to which data is to be saved or restored, save_si the 8088 s/register that is 
used by Forth as the instruction pointer, and save_ds the data segment in 
which Forth is running. 


scn— > buf x y width height seg -- 

Moves memory a word at a time from the appropriate position in the screen 
memory to a buffer defined by the seg parameter. Both the character and attri- 
bute residing on the screen at a given location are moved. X and y mark the up- 
per-left corner of the rectangle to be moved. 


buf— >scn seg x y width height -- 

Moves memory a word at a time from a buffer in memory defined by (seg) to the 
appropriate position in the screen memory. Both the character and attribute 
stored in this memory buffer are moved. X and y mark the upper-left corner of 
the rectangle to be restored. 


Table 1: Forth assembly-language word definitions 
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software has limited BIOS/BDOS sup- 
port for the special functions re- 
quired. Second, assembly-language 
code executes faster than any higher- 
level language, including Forth. 

Three different levels of software 
interface are used in this window 
package. The lowest level, which in- 
volves direct manipulation of the PC 
hardware, includes the words 
buf—>scn and scn—>buf. Both of 
these Forth words read and/or write 
to video RAM directly while saving 
and restoring of the display is taking 
place. Because of their direct ma- 
nipulation of the video display, these 
words are also the least transport- 
able. They must know whether they 
are running in a PC that has only a 
monochrome monitor or one with a 
graphics adapter. This is done by 
changing the value of the constant 
v_seg in the window program and 
recompiling. The correct values of 
v_seg are as follows: 


color graphic adapter v_seg = B800h 
monochrome monitor v_seg 
= B000h 


The constant v_seg informs both 
scn— >buf and buf— >scn of where 
the video memory begins, and they 
do the rest. See the section on the save 
and restore algorithm for specifics on 
how these words work. 

The next higher level of software 
interface to the PC makes use of the 
BIOS routines. In this program, exten- 
sive use is made of the functions pro- 
vided by the video BIOs interrupt, int 
10h. The video functions are accessed 
by placing parameters in the various 
8088 registers, placing a function 
code in the ah register, and issuing 
the int 10h request. Table 3, page 50, 
gives a summary of which int 10h 
functions are used and where. 

When using the BIOS functions, it’s 
important to save any registers of 
special significance as many of the 
BIOS routines alter registers during 
the course of their operation. This 
version of Forth, for example, uses 
the 8088 si register as the instruction 
pointer and the bp register as the re- 
turn stack pointer. These registers, 
therefore, must be saved and re- 
stored after any BIOS routines that 
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modify them are used. In all the low- 
level word definitions that access the 
BIOS routines, you'll see si push and si 
pop instructions surrounding the 
BIOS interrupt call. You'll also find a 
bp push and bp pop in the scrlup 


word definition because the bp regis- 
ter is modified there. 

The highest level of software inter- 
face is on the BDOS level. The memo- 
ry management words calloc, free, 
and setblock are examples of this 





case, of, endof, and endcase 
Dr. Charles Eaker’s case statement. See Forth Dimensions, vol. ||, no. 3, p. 37 
for details on how these words work. 










putch x y char/attrib -- 
Writes the character and attribute onto the video display screen at location x,y. 
The cursor position is set at the next character. 






getch x y -- char/attrib 
Returns the character and attribute at location x,y on the video display screen. 
The cursor is moved automatically to position x,y. 







draw_row x y char/attrib count -- 
Displays (count) identical characters starting at the position on the video display 
screen defined by x,y. 








ulx, uly, width, height, curx, cury, 

oldx, oldy, bufseg, oldwcbseg, attrib -n 

These words are constants that define the positions of storage locations within 
the current window control block (wcb). When executed, they return offsets rel- 
ative to the start of the web storage area. (See Table 7.) 








webseg! n addr -- 

Stores information into the active wcb. The active web is the one whose seg- 
ment address is in the variable wcbseg. For example, 7 attrib wcbseg! would 
store the display attribute 7 into the attrib slot in the active window control 
block. The attrib word supplies the address in which to store the display 
attribute. 


webseg@ __ addr--n 

Fetches information from the active web. For example, attrib wcbseg@ would 
fetch the display attribute from the active window control block and put it on the 
parameter stack. 














top, sides, bottom -- 

These words draw the actual window frame on the display screen. When exe- 
cuted, they draw the top, sides, and bottom, respectively, of the window speci- 
fied in the active wcb. The program constant border shown in the listing is used 
to determine the attribute with which to draw the window frame. The current 
version sets it to high-intensity normal video. 


((window)) -- 

This is the lowest-level window routine. It automatically fetches from the current 
web the position and size of the window to be drawn on the display, copies to 
the appropriate window buffer the portion of the display screen that will be 
overwritten by this new window, and then draws the window frame by invoking 
top, sides, and bottom. | 














clr_window -- 

Clears the current window by fetching all the appropriate parameters from the 
web and invoking scriup to clear the entire window. It then sets the window cur- 
sor position curx, cury to 0 to home the cursor in the window. 


(window) x y width height attrib -- f 
Builds the actual window. It tries to allocate enough memory to hold a new web 
(22 bytes). If successful, it links this new web into the web linked list and then 
tries to allocate enough memory to contain the screen information that the new 
window will overwrite. If this, too, is successful, all the parameters passed to 
this routine are stored in the new web, ((window)) is called to draw the actual 
window, and a true flag is returned to the calling program indicating that the 
creation of the window was successful. If either allocation attempt fails, the 
memory previously allocated is freed and a false flag is returned indicating win- 














Table 2: High-level Forth words 
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BDOS interface. These words work by 
loading parameters into the 8088 reg- 
isters, loading a function code into 
the ah register, and executing int 21h. 
All functions provided by int 21h save 
and restore all registers (except those 


used to pass back parameters), so the 
precautions used for the BIOS routine 
interface aren't required. Table 4, 
page 50, summarizes memory man- 
agement functions performed via the 
BDOS interrupt. 


dow creation failure. Under these conditions, an error message will be dis- 
played to help the programmer find the source of the problem. In most cases a 


failure indicates lack of available memory. 


open_window 


x y width height attrib -- f 


This is the highest-level window word. Its function is to perform checking on the 
specified window parameters to verify validity. If the specified window wouldn't 
fit on the display screen, an appropriate error message will be displayed. Anoth- 
er error message will be displayed if the proper parameters are not present on 
the parameter stack. This word will not allow the programmer to create a win- 
dow that cannot be displayed on the screen correctly. 


close_window _ 


Closes the current window. A window is closed by moving the screen data 
stored in the memory buffer back onto the display screen, then freeing the 
memory allocated to both the web and the memory buffer. Next, the cursor is 
returned to where it was before this window was opened, and then the web is 
removed from the wcb linked list. If no windows are currently open, execution 
of this routine will result in an error message. 


wat xXy-- 


This routine (pronounced ‘‘window at’’) places the cursor in the window at the 
location specified by the x,y coordinates. These coordinates are relative to the 
current window, not the whole display screen. If either coordinate exceeds the 

size of the current window, the cursor will be placed as close as possible to the 
position specified without leaving the window. 


rdwcur -Xy 


Returns the cursor position relative to the current window. 


rdwcha x y -- char/attrib 


Returns the character and attribute found under the current window's cursor. 


scroll_window = 


Scrolls the current window up by one line to allow new information to be dis- 
played. This word gets all the parameters it needs from the web. The attributes 
used for the blank line scrolled onto the display are the same as those specified 


when the window was created. 


crout, lfout, bsout, bell - 


These words perform, in the current window, the same function as they would 
perform if issued to the normal screen. Namely, they return the cursor to the 
first character position of the current line, move the cursor down one line, back 
the cursor up by one character position, and cause the computer to ring its 
chimes, respectively. Special versions of these functions are required to keep 


the cursor within the window. 


wemit char — 


This word (pronounced ‘‘window emit’’) is the equivalent of the Forth word 
emit. It should be used only when writing information to windows. In addition to 
sending normal characters to the display window, it performs the cr, /f bs, and 
bell functions as described above. If a line feed (/f ) character code is issued 
while the window cursor is on the last line of the window, wemit will scroll up all 
the information in the window accordingly. 


initialize -- 


Sets up the MS-DOS memory management function. It requests a full 64K seg- 
ment for the Forth system currently running. If this initialization is successful, an 
appropriate message is displayed and the webseg variable is set to 0, indicat- 
ing that no windows are currently active. If there wasn’t enough memory, an er- 
ror message is displayed and the window program is completely aborted. 


Table 2 (continued): High-level Forth words 
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Forth 8088 Assembly 
Language 

Assembly language in Forth is a bit 
unusual. The first conceptual hurdle 
that needs to be overcome involves 
the reverse Polish or postfix notion 
used throughout the assembly-lan- 
guage definitions. Assembly lan- 
guage written in this manner has the 
operand(s) preceding the mnemon- 
ics. For example, the standard 8088 
assembly-language instruction mov 
dh,dl, where dh is the destination and 
dl is the source, is coded in Forth as 
dh dl mov. 

Some new symbols are also neces- 
sary to allow the Forth assembler to 
create the correct instruction se- 
quences. Special symbols used in this 
program are #, which indicates an 
immediate operand, and #), which in- 
dicates an indirect operand. These 
symbols are sprinkled liberally 
throughout the low-level Forth code 
words. 

A few other special-purpose Forth 
words are used in assembly-language 
definitions. The word code takes the 
name that follows it and creates a 
new dictionary entry for the code 
definition to follow and sets up cer- 
tain pointers for Forth so that this 
code definition can be executed in a 
manner similiar to that of all Forth 
definitions. Code also tells the compil- 
er to reference the assembler vocab- 
ulary so that all 8088 mnemonics that 
make up the definitions can be found 
in the dictionary searches and assem- 
bled into the code. 

The word next (and its derivative 
1push) causes a direct jump back to 
the Forth inner interpreter. This re- 
stores control to the interpreter, 
which then passes control to the next 
Forth word in the program. Writing 
a code definition and forgetting to 
have next or 1push as the final state- 
ment (before end-code) will cause 
your computer to crash right after 
the word is executed. 

The word ipush performs the 
same function as next does, except it 
pushes the contents of the 8088 ax 
register onto the parameter stack be- 
fore returning to the inner interpret- 
er. In this way, parameters can be 
passed back via the stack to subse- 
quent high-level Forth definitions. 

The final word end-code changes 
the vocabulary back to Forth (from 
assembler), performs a_ limited 
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amount of error checking on the 
code definition, makes this new 
word visible in the dictionary, and 
then terminates the assembly-lan- 
guage word definition. 

From the listing you can see how 
easily assembly-language word defi- 
nitions can be integrated into a high- 
level Forth program. From my expe- 
rience with in-line code written in 
any computer language, the follow- 
ing rules apply: 


¢ Use in-line code only when speed of 
execution is required. 

¢Keep the definitions as small as is 
practical. This will aid in debugging 
and maintenance. 

¢ Code carefully; errors in in-line 
code can send your computer on a 
journey from which it will never re- 
turn except via reboot. 


Screen Save and Restore 
Algorithm 

The screen save and restore algo- 
rithm was developed to keep to a 
minimum the number of calcula- 
tions necessary to locate the correct 
screen data and move it to/from buff- 
ers allocated for its storage. Minimal 
calculations result in the fastest possi- 
ble execution of the windows. 

All moves of data to or from the 
screen and buffers are word moves 
because the character and attribute 
for a screen character are stored in 
sequential bytes of screen memory. 
Character data is stored at even ad- 
dresses, and attribute data is stored at 
odd addresses. When a word is 
fetched from an even addess in screen 
memory, the high byte contains the 
attribute and the low byte contains 
the actual character. For the same rea- 
son, sequential lines on the video dis- 
play are offset not by 80 bytes but 
rather by 160 bytes. This fact is impor- 
tant whenever data is moved to or 
from the PC screen and is taken into 
consideration by the scn—>buf and 
buf— >scn word definitions. 

A program design language (PDL) 
representation of the data movement 
algorithm is shown in Table 5, right. 
The start address of the video data 
needs to be calculated only once be- 
fore the nested loops actually per- 
form the work of moving the data. 
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The 8088 block-move word instruc- 
tions make the data movement from 
screen memory to buffer and from 
buffer back to screen memory a triv- 
ial task. The incrementing of the 
pointers shown in the PDL is handled 
automatically by specifying block- 
move word instructions. For both di- 
rections of data movement, the ds:si 
register pair points at the source of 
the data to move, and the es:di regis- 
ter pair points at the destination. Both 
si and di increment automatically by 
2 for movement of word-size data. 


Windows in Your Programs 
Interfacing windows with your appli- 


Function 
write char with attribute © 
get cursor position 


set cursor position 
read char and attribute 
scroll up video window 


Table 3: Summary of int 10h functions 


Function 


release a memory block 
resize an allocated block : 4ah 


Function Code 





Function Code 
allocate memory block 48h 
- 49h 


cation program is relatively straight- 
forward once you understand how 
the window package works. Once 
you have compiled the package, you 
can create windows interactively to 
see how they work before trying to 
use them in your program. For exam- 
ple, typing the commands 


initialize 0 0 20 10 7 open_window 


at the keyboard will immediately 
create a window with its upper-left 
corner at 0,0; a width of 20 charac- 
ters; and a height of 10 vertical lines. 
(Width and height are inside dimen- 
sions of the windowed area; the bor- 


Used in Forth Word(s) _ 
_ Chra, chra+ 
chra+, rdcur 
chra+ 
rdchra 
scrlup 


Used in Forth Word 
calloc 
free 





setblock 


Table 4: Memory management functions performed via the BDOS interrupt 


procedure scn—>buf parameters are x, y, width, height and buf seg 


begin 


set data movement direction to forward 


get buffer segment address into the extra segment reg. 2 
initialize destination ptr DI to 0 which points at the first byte of buffer storage 


in the buffer segment. 


Save the height parameter in temporary storage 
_ Save the width parameter in temporary storage 





get y coordinate of first location to store 
multiply by 160 to find line start address 
get x coordinate of first location to store 
multiply by 2 to find character address offset 
add new x and new y to get start address of data move 
Save result in a temporary location called save_ptr 
Save the current value of the SI register in a safe place 
Save the current value of the DS register in a safe place 
move video segment address v_seg into the DS register 
do height times 
do width times 
move DS:SI to ES:DI (move actual data) 
increment SI and DI both by 2 for word moves 
enddo 
Save_ptr = save_ptr + 160 (move down 1 vertical line) 
enddo 
restore previous DS register value 
restore previous SI register value 
jump to next (back to inner interpreter) 


end 


Table 5: PDL representation for the data movement algorithm 
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der of the window will take up two 
more characters horizontally and 
two lines vertically.) The attribute 
code of 7 will create the window us- 
ing normal, low-intensity video. Re- 
member, the word initialize is need- 
ed to set up the MS-DOS memory 
manager. If initialize is not executed 
before the open—_window request, the 
request will fail. 

Once a window is opened, you can 
move the window's cursor to any po- 
sition by using the word wat (the win- 
dow counterpart of the Forth word 
at). You can write text into the win- 
dow using wemit and wtype (the win- 
dow counterparts of emit and type). 
The special video control codes 
shown in Table 6, below, are also sup- 
ported via wemit. Note that by rede- 
fining the F83 deferred word emit to 
wemit, you can get Forth to run in 
one of its own windows. 

All words that write text into a 
window (such as wemit) always work 
on the currently selected window 
only [the window at the end of the 
window control block (wcb) linked 
list whose wcb address is contained 
in the Forth variable wcbseg].Thus, 
continuing with the example, if you 
were to open a second window, we- 
mit would then automatically write 
to this new window. The previous 
window could not be written to 


again until the new window was 
closed. The Forth word close_—win- 
dow closes the current window and 

















Backspace the window cursor 





_ X coordinate of upper left corner _ 
-_ ¥ coordinate of upper left cor 
_ Width of the window 
Height of the window - 


reopens the previous window if one 
exists. If close_window is executed 
when no windowsare open, an error 
message is displayed. A window that 
is closed erases itself from the screen 
(by restoring the screen data that it 
covered up), frees the memory it had 
allocated for the window control 
block and the screen buffer, and fi- 
nally unlinks itself from the web list. 
Table 7, below, shows the structure 
of an entry in the web list. 

The demo program in the listing is 
an example of how an application 
program can be integrated with the 
basic window package. It demon- 
strates opening windows using vari- 
ous attributes, writing text to the 
windows, using the special video 
control codes, listing Forth screens in 
a window, linking overlapping win- 
dows, clearing windows, and closing 
them. It illustrates how easy to use 
and how fast the windows can be. 


DDJ 
(Listing begins on page 96.) 
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Expandability 






See 


A two user Slave card based 


on 


Hitachi’s Z80 compatible high speed, 
10MHz super microprocessor. 


Priced 
at 


$495" 


Features Include. . . 


4-10 MHz Z80 Compatible HD64180 
1/2 Megabyte Nonbanked Memory 
2 Asynchronous Serial Ports To 38.4 
1 High Speed Synchronous Port 
All Transfers Via 1.6 MHz DMA!!! 
Unique Expansion Port Offers; 

2 Additional Serial Ports or... 

2 Parallel Ports or... 

Real Time Clock With Battery Backup 





The industry's fastest 8-bit Master CPU 


card with features superior to most 
16-bit cards. 


Priced 


« $495” 


Each Master Features... 


4-10 MHz Z80 Compatible HD64180 
1/2 Megabyte Nonbanked Memory 


1 High Speed Synchronous Serial Port 

4 Bi-directional Parallel Ports 

TurboDOS**, ZSYSTEMS**, CP/M**, 
& OASIS** Operating Systems 


@ 
8 
e 2 Asynchronous Serial Ports To 38.4 
& 
Oi 
eS 


e FDC Simultaneously Controls 


8”, 5%”, & 342” Drives 


e SASI/SCSI Interface ; 
e Optional High Speed Hard Disk/File 


Access Tape Backup and True 
ETHERNET Controller 


_ Window—relative cursor position 

_ Window—relative cursor position 
Cursor position in previous window 
Cursor position in previous window 


*Prices apply to 6 MHz, 64KB versions and 
are good for a limited time only on 
purchases of ten or more. For less than 
ten, please call. 











Points to window’s text buffer +*Trademarks: TurboDOS - Software 2000; ZSYSTEMS - 
Points to previous web record Echelon; CP/M - Digital Research; OASIS - THEOS Software 
(NIL for last record) L/ INTELLIGENT COMPUTER 
Window’s text attribute byte 4 DESIGNS CORP. 


23151 Verdugo Drive, Suite 113 
Laguna Hills, CA 92653 
(714) 581-7500 
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helps save time, money and cut frustrations. Compare, evaluate, and find products. 





RECENT DISCOVERY 


Artek ADA Compiler - DoD 
Standard minus multitasking. 
Includes trace, breakpoints, code 
disassembly, more. Produces virtual 
stack file or native code. PC $ 895 


Al-Expert System Dev’t 


Arity System - incorporate with C 

programs, rule & inheritance PC $ 295 
Experteach - Powerful, no limit on 

memory size. Samples PC $ 399 
EXSYS - Improved. Debug, file & 

external program access. MS $ 339 
Insight 2 - dB2, language. MS $ 399 
Others: APES ($359), Advisor ($949), 

ES Construction ($100), ESP ($845), 

Expert Choice ($449) 


BYSO - Common, MacLISP compatible. 
250+ functions, fast PE S450 
GC LISP Interpreter - “Common”, 
rich. Interactive tutorial Call 
Microsoft MuLisp 85 
TLC LISP - “LISP-Machine” - like, 
all RAM, classes, compiler. MS $ 225 
TransLISP - learn fast MS $ 75 
WALTZ LISP - “FRANZ LISP” - like, 
big nums, debug, CPM-80 MS $ 149 
Others: IQ LISP ($155), UNX LISP ($59), 
IQC LISP ($269) 


Al-Prolog 


ARITY Standard - full, 4 Meg 

Interpreter - debug, C, ASM PC $ 350 
COMPILER/Interpreter-EXE PC $ 795 

With Exp Sys, Screen - KIT PC $1250 
MicroProlog - enhanced MS $ 229 
Professional MicroProlog MS $ 359 
Prolog-86 - Learn Fast, Standard, 

tutorials, samples MS $ 95 
Prolog-86 Plus - Develop MS $ 250 
TURBO PROLOG by Borland PC $ = 85 
Others: Prolog-I ($365), Prolog-2 ($1795) 


METHODS - SMALLTALK has 
objects, windows, more Poh 215 
QNIAL - Combines APL with LISP. 
Source or binary. PC $ 359 


Synergy - Create user interfaces. 
TopView - compatible multitasking 
operating environment offers windows. 
icons, pull-down menus and fonts 
in 12K RAM. WES: S75 
Microsoft Cobol Tools - 
symbolic, windowing debugger 
w/source support. Plus cross 
reference, menu handler, mouse 
support. Xenix. $359 PC $259 





We support MSDOS (not just compatibles), 






Compare Products 
Call Product Specialists 


The Programmer’s Shop is much more than the 
supplier of the largest selection of programmers’ 
software. Trained programming consultants will an- 
swer your questions. Ask “product specialists” 
about Cross Assemblers, Translators, Debuggers, 
or C compilers. 












Our Services: 
* Programmer's Referral List * Dealers Inquire 
* Compare Products * Newsletter 
* Help find a Publisher * Rush Order 
* Evaluation Literature FREE * Over 700 products 
* BBS-7PM to7 AM 617-826-4086 + National Accounts Center 








ACTIVE TRACE Debugger - 


BASICA, MBASIC, well liked MS $ 79 
APC MegaBASIC - powerful PC $ 339 
Basic Development System - for 

BASICA; Adds Renum, more. PC $ 105 
Basic Windows by Syscom PE S:.--95 
BetterBASIC - all RAM, modules. 

structure. Full BASICA PC $ 169 

8087 Math Support PC $.°=89 

Run-time module PC S235 
Better Tools - for Better Basic PC $ 95 
CADSAM FILE SYSTEM - full 

ISAM in MBASIC source. MS $_ 75 
Prof. Basic - Interactive, debug PC $ 79 

8087 Math Support PG 3. 47 
QuickBASIC by Microsoft - Compiles 

full IBM BASICA, 640K PC $ 79 
TRUE Basic - ANSI PC’ S$ 119 

Run-time Module PC. $ 459 
Macintosh COBOL - full MAC $ 459 
MBP - Lev. II, native MS $ 885 
MicroFocus Professional-full PC Call 
Microsoft Version II - upgraded. 

Full Lev. II, native, screens. MS $ 495 
Realia - very fast MS $ 889 
Ryan McFarland COBOL MS $ 699 


COBOL-8X MS $1100 


Editors for Programming 


BRIEF Programmer’s Editor - undo, 

windows, reconfigure PC €all 
C Screen with source 80/86 $ 75 
EMACS by UniPress - powerful, 

multifile, windows = Source:$949 $299 
Epsilon - like EMACS, full 

C-like language for macros. PC $169 
Kedit - like XEDIT PC $109 
Lattice Screen Editor - multiwindow, 

multitasking Amiga $100 MS $109 
PMATE - power, multitask 80/86 $159 
VEDIT - well liked, macros, 

buffers CPM-80-86 MS $119 
XTC - multitasking PC $ 85 


Atari ST & Amiga 


We carry full lines of Manx, 
Lattice, & Metacomco. 





Cambridge LISP Amiga $ 200 
Lattice C ST Amiga $ 139 
Lattice Text Utilities Amiga $ 75 
Megamax - tight, full ST $ 179 





PCDOS, Xenix-86, CPM-80, 
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Macintosh, Atari ST, and Amiga. 


RECENT DISCOVERY 


Microsoft Windows Software 
Development Kit - Run graphics 
programs on all machines that 
support Microsoft Windows. 
Eliminates need for hardware - 
specific support. Includes MS 
Windows user version PC $399 


C Language-Compilers 


AZTEC C86 - Commercial PC $499 
AZTEC C65 - Personal _— Apple II $199 
C86 by CI - 8087, reliable MS $299 


Lattice C - from Lifeboat MS $289 
Lattice C - from Lattice MS $339 
Mark Williams - w/debugger MS $399 
Microsoft C 3.0 MS $259 


Q/C 88 by Code Works - Compiler 

source, decent code, native MS $125 
Wizard C - Lattice C compatible, 

full sys. III, lint, fast. MS $389 


C Language-interpreters 


C-terp by Gimpel - full K & R MS $249 
INSTANT C - Source debug, 

Edit to Run-3 seconds 
Interactive C by IMPACC Assoc. 

Interpreter, editor, source, debug. PC $225 
Introducing C - self paced tutorial PC $109 
Run/C Professional - Run/C plus 

create add-in libraries, more 
Run/C Lite - improved 


MS $389 


MS $189 
MS $109 


C Libraries-General 


Application Programmer’s Toolkit MS $375 
Blaise C Tools 1 ($109), C Tools 2 $ 89 
C Essentials - 200 functions PC $ 85 
C Food by Lattice-ask for souree MS $109 
C Utilities by Essential - Comprehensive 

screen graphics, strings, source. PC $139 
C Worthy Library - Complete, machine 


independent, source MS $295 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC $ 45 


Greenleaf Functions - portable, ASM $139 
PforCe by Phoenix - objects PC $299 


C Libraries-Communications 





Asynch by Blaise PC $149 
Greenleaf - full, fast PC $139 
Software Horizons - pack 3 PC $119 


C Libraries-Files 


FILES: C Index by Trio - full B + 
Tree, vary length field, multi compiler 


/File is object only MS $ 89 
/Plus is full source MS $349 
C to dBase - with source MS $139 


CBTREE - sequential, source, no 
royalties MS $ 99 
dbVISTA - full indexing, plus optional 
record types, pointers, Network. 
Object only - MS C, LAT, C86 $159 


Source - Single user MS $429 
Source - Multiuser MS $849 
dBASE Tools for C Pe R79 
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LATTICE BARGAINS 
ORDER TODAY 


Curses - Full screen output to run on PC, UNIX, 
and XENIX without source changes. Compatible 
with UNIX Curses. PCDOS. 


dbc II or III - Isam file management. Create, 
access, and update files compatible with dBASE 
II or If]. PCDOS. 

Text Management Utilities - 70 functions for 
screen, windows, pointers, and task control. 
PCDOS. 





C Support-Systems 


Basic-C Library by C Source PC $139 
CPRINT - by ENSCO MS $ 45 
C Sharp - well supported. Source, 
realtime, tasks, state system MS $600 
C ToolSet - DIFF, xref, source MS $ 95 
The HAMMER by OES Systems PC $179 
PC LINT - Checker. Amiga$89 MS $119 
SECURITY LIB - add encrypt to MSC, 
C86 programs. Source $250 PC $125 


C-Screens, Windows, Graphics 


C Power Windows by Entelekon PC $119 
ESSENTIAL GRAPHICS - fast, 

fonts, no royalties PC $219 
GraphiC - new color version PC $319 
Topview Toolbasket by Lattice PC $209 
View Manager for C by Blaise PC $219 
Vitamin C - screen I/O PC $139 
Windows for C - fast PC $159 
Windows for Data - validation PC $239 


Debuggers 


Advanced Trace-86 by Morgan 


Modify ASM code on fly. PC $149 
CODESMITH - visual, modify 

and rewrite Assembler PC $109 
C SPRITE - data structures PC $139 
Periscope I - own 16K PC $269 
Periscope II - symbolic, “Reset 

Box,” 2 Screen PC 3129 
Pfix-86 Plus Symbolic Debugger 

by Phoenix - windows PC $289 


Software Source by Atron - 
Lattice, MS C, Pascal, Windows 
single step, 2 screen, log file. MS $115 
w/Breakswitch $199 


dBASE Tools for C - incorporates 
C functions to extend III+ PC’ s°2 
dBASE Graphics for C PC $ 79 
ZView - Screen generator gives range 
checking, security level settings, help 
tied to field or screens, dynamics. Auto 
convert to/from ASCII screen. MS $245 
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Order before 7/31/86 and mention this ad for the 
special prices below: 
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Curses 125 89 109 
Curses (w/source) 250 169 219 
dbc II or Il 250 169 = 219 
dbe II or III] (w/source) 500 339 439 
Text Utilities 120 85 105 


Fortran & Supporting 


ACS Time Series MS $449 
Forlib + by Alpha - graphics and 

file routines, comm. MS $ 59 
MACFortran by Microsoft © MAC $229 
MS Fortran link to C MS $219 


No Limit - Fortran Scientific | PC $119 
PolyFortran - xref, pp, screen MS $149 


Prospero - °66, reentrant MS $349 
RM/Fortran - enhanced “IBM 

Professional Fortran” MS $395 
Scientific Subroutines - Matrix MS $149 
Statistician by Alpha MS $269 


Strings and Things - register, shell PC $ 59 


Multilanguage Support 


BTRIEVE ISAM MS $199 
BTRIEVE/N-multiuser MS $469 
CODESIFTER - Profiler. MS $109 


HALO Graphics - 115 + devices. 

Animation, engineering, business. 

Any MS language, Lattice, C86 PC $239 
PANEL - Create screen with editor, 

generates code. Full data validation, 

no royalties. Xenix $539, MS $239 
PLINK 86-program-independent MS $279 
PLINK-86 PLUS - incremental MS $369 
Pfinish Performance Analyzer PC $279 
PolyLibrarian by Polytron MS $ 85 
PVCS Version Control MS $359 
Rtrieve - Btrieve front end MS $ 79 
Screen Sculptor - slick, thorough, 

fast, BASIC, PASCAL. PC.$ 99 
Xtrieve - organize database MS $169 
ZAP Communications - VT 100, 

TEK 4010 emulation, fullxfer. PC $ 85 


Turbo PASCAL & Supporting 


BORLAND: Turbo 3.0 
3.0 with 8087 and BCD 
Turbo Graphix - graphs, windows 
Turbo Toolbox or Editor 
TURBO... Asynch by Blaise, full 
Extender - “big model” 
Power Tools by Blaise - library 
Power Utilitics - profiler, pp 
OTHERS: Screen Sculptor ($99), 
Pascal Pac ($100), Tidy ($45). 
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800-421-8006 
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“I like your straightforward, open 
evaluations, comments and sclection. 


RECENT DISCOVERY , 
PS Scheme LISP - by TI. Scheme has 

special, simple, “orthoganal” syntax. 

Lexical scoping, block structure, 

call by valuc, and tail-recursive 

semantics. Compiler, EMACS-like 

editor, DOS. Can support debugging 


graphics, windowing. Po 5 
Other Languages 
APL*PLUS/PC PC $ 469 
CLIPPER-dBASE Compiler MS $ 449 


HS/FORTH - ’79 & °83 Standards, 
fullRAM, ASM, BIOS, interrupts. 
Graph, multi-task, optimizer MS $ 250 


MacASM - fast MAC $ 99 
MasterForth MAC or PC $ 125 
Microsoft MASM - faster MS $ 109 


Microsoft PASCAL - faster MS $ 199 
MICROTEC PASCAL - 5 memory models, 

“‘Iterators”. 65 bit 8087 strings. MS $ 665 
Modula-2/86 Compiler by Logitech 

w/ 8087 ($105), 512K ($149). PC $ 65 
Pasm - by Phoenix MS $ 219 
Prospero Pascal - full ISO+ MS $ 349 
RPG II by Lattice PC $ 639 
SNOBOL4 + - great for strings MS $ 85 


Xenix-86 & Supporting 


Basic - by Microsoft $279 
Cobol - by Microsoft 

Fortran - by Microsoft 
PANEL Screen LIB - multi-language $ 539 
Xenix Complete Development System $1195 


Other Products 


Dan Bricklin’s Demo Program PC $ 75 
dBrief - Customize BRIEF for dBASE 
development. with BRIEF $275. PC $ 95 





HTest/H Format - XT Fix PC-3. -89 
Interactive Easyflow-HavenTree PC $ 139 
LMK - like UNIX make PC $ 149 
Microsoft Windows PES. 
Opt Tech Sort - sort, merge MS $ 119 
PMaker - by Phoenix Pe 3.39 
Polymake by Polytron MS $ 79 
PolyWindows Dev. Kit PC $ 149 
PS MAKE MS $ 129 
Qwik Net - critical path, 125 tasks/ 
resources, thorough; usable PC $ 316 
SECRET DISK by Lattice m..$.49 
SoftEst - Manage projects. MS $ 350 


Texsys - control source MS $ 89 
Visible Computer: 8088 - Simulates 

demos or any .exe. com, Debugger. 

350 pg. tutorial, unprotected PC $ 75 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about 
COD and POs. All formats available. 

UPS surface shipping add $3/item. 
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polyFORTH GETS 

YOUR PROGRAM 
FROM CONCEPT 
TO REALITY 

4 TO 10 TIMES 












THE ONLY INTEGRATED SOFTWARE 
DEVELOPMENT PACKAGE DESIGNED 
FOR REAL-TIME APPLICATIONS 







If youre a real-time software developer, 
polyFORTH can be your best ally in 
getting your program up and running 
on time. In fact, on the average, you 
will develop a program 4 to 10 times 
faster than with traditional program- 
ming languages. 

polyFORTH shortens development 
time by making the best use of your 
time. There are no long waits while you 
load editors, compilers, assemblers, and 
other tools, no long waits while they 
run— because everything you need is 
in a single, easy-to-use, 100% resident 
system. Using polyFORTH, you take a 
raw idea to fast, compiled code in 
seconds — and then test it interactively. 

polyFORTH has everything you need 
to develop real-time applications: fast 
multi-tasking, multi-user OS; FORTH 
compiler, interpreters, and assemblers; 
editor and utilities; and over 400 primi- 
tives and debugging aids. With its unique 
modular structure, polyFORTH even 
helps you test and debug custom hard- 
ware interactively, and it is available for 
most 8, 16, and 32-bit computers. 

FORTH, Inc. also provides its customers 
with such professional support services 
as custom application programming, 
polyFORTH programming courses, and 
the FORTH, Inc. “Hotline” 

For more information and a free 
brochure, contact FORTH, Inc. today. 
FORTH, Inc., 111 N. Sepulveda Bivd., 
Manhattan Beach, CA 90266. Phone 
(213) 372-8493. 
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B PROTOCOL 


Listing Five (continued from June) 


include \lc\dos.mac 
dseg 
Timer dw ? 
Old_Second db ? 
endds 
pseg 
public Start Timer 
Start Timer proc 
push BP 
mov BP, SP 
mov AX, [BP+4] 7 Get the number of seconds 
mov Timer, AX 
mov AX, 2COOH 
int 21H ; Get current time 
mov Old_ Second, DH 
pop BP 
ret 


Start Timer endp 


public Timer Expired 
Timer Expired proc 
~ ‘mov AX, 2COOH 
int 21H ; 
cmp DH,Old Second ; 
je Timer Expired 1 ; No 
mov Old_Second, DH ; 
dec Timer 
cmp Timer, 0 
jle Timer Expired 2 ; 


Timer Expired 1: 
xor AX, AX 
ret 


=e 


Timer Expired 2: 


Timer expired? 


Get current time 
Has the clock ticked? 


Yes, update Old Second 


No, return "false" 


mov _ AX, 1 ; Yes, return "true" 


ret 
Timer Expired endp 


endps 
end 


Listing Six 
#define Loops Per Millisecond 9 


Delay (N) 


[** 


* Delay for N milliseconds 
ak / 


int N; 
{ 
long K; 


for (K = Loops Per Millisecond * (long) N; K > 0; K==).; 


Listing Seven 


page 37,132 
title FileIo 
z++ 
FACILITY: DTE 
ABSTRACT: 


ENVIRONMENT: MS-DOS, V2.0 or later 
AUTHOR: Steve Wilhite, CREATION DATE: 8-May-85 
REVISION HISTORY: 


Se Se Se Se Se Se Se Se Ne Se Se Se Se Se 


include 
pseg 


\lc\dos.mac 


End Listing Five 


End Listing Six 


This module contains the interface routines to the MS-DOS file 
service. All disk operations are done thru this module. 
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@ab = 4 ; argument base 
page 
public Create File 


Create File proc near 


+ 
; Functional Description: 


“6 


Creates a new file or truncates an old to zero length in 
preparation for writing. 


Calling Sequence: 
handle = Create File (pathname, attribute) 
Parameters: 


pathname ptr to ASCIZ pathname 
attribute file attribute (s) 


Return Value: 


e Se Se Se Se Ve Se Ne Se Se Ne Se Se Ne Ne Ne Se Se Se 


-5 access denied 
-4 too many open files 
-3 path not found 
else file handle number 
Pathname equ @ab[BP ] 
Attribute equ @ab+2 [BP] 
push BP 
mov BP, SP 
Mov DX, Pathname 
Mov CX, Attribute 
mov AH, 3CH 
int 21H 
jnc Create 1 
neg AX 
Create 1: 
pop BP 
ret 
Create File endp 
page 
public Open File 
Open File proc near 
e+ 


Functional Description: 
Opens a file. 


Calling Sequence: 


es ‘+s Se Se Se Se Se 8 


handle = Open File(pathname, access) 
; Parameters: 


pathname ptr to ASCIZ pathname 
access access code (0 = read, 1 = write, 2 = read and write) 


a 
sg 
’ 
’ 
f 
s 
, 
: Return Value: 
, 
s 
s 
, 
f 
s 
s 


-12 invalid access 
-5 access denied 
-4 too many open files 
-2 file not found 
>0 file handle number 
Access equ @ab+2 [BP] 
push BP 
mov BP, SP 
mov AH, 3DH 
mov DX, Pathname 
mov AL, Access 
int 21H 
jnc Open 1 
neg AX 
Open 1: pop BP 
ret 
Open File endp 
page 
public Close File 
Close File proc near 
st 


Functional Description: 

Closes the file associated with a specified file handle. 
Calling Sequence: 

status = Close File (handle) 
Parameters: 


handle file handle for file to close 
(continued on next page) 
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Perfect Windows, 
Powerful Data Entry, 


FULLY Integrated, 
For Effortless 


Data Entry Windows! 


¢ Complete input formatting 
¢ Unlimited Validation 
¢ Full attribute control 
« Field sensitive application help system 
¢ Multiple virtual windows 
¢ Fully automatic, collision proof overlay 
and restore 
¢ Print to & scroll background windows 
¢ Animated window "zoom" 
¢ Move, grow, shrink, hide, or show 
any window 
¢ "Loop function" allows processing 
while awaiting input 
and much much more! 
Designed to increase your productivity 
and help you produce superior applica- 
tions in dramatically less time! Includes 
100% source, tutorial, reference manual, 
examples, and sample programs. 
Specify Microsoft, 
Lattice, Computer $ 1 4 9 95 
Innovations, Aztec, 
or Mark Williams. Ask about Unix. 


RSE 


NOW... VCScreen ! 


Our new interactive screen "painter" 
actually lets you draw your data entry 
windows! Define fields, text, boxes & 
borders. Move them around. Change 
attributes. Then the touch of a button 
generates C source code calls to the 
Vitamin C routines! Now, your screen 
designs will be faster and more pleasing 
when they are created with VCScreen! 


Requires Vitamin C ibe $99.95 


rary above. For IBM & compatibles. 


For Orders Or Information, 


(214)245-6090 


Creative Programming Consultants 
Box 112097 Carrollton, TX 75011-2097 
Include $3 ground, $6 air, $15 overnight 
shipping, $25 if outside USA. Texans add 
6% tax. All funds must be in U.S. dollars 
drawn on a U.S. bank. 
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COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 


HS 
FORTH 


Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
it gives MANY more functions per 
byte than any other Forth. Not be- 
Cause you can run all DOS com- 
mands plus COM and EXE programs 
from within HS/FORTH. Not be- 
Cause you Can single step, trace, de- 
compile & dissassemble. Not for the 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 
Nor for the fast 9 digit software float- 
ing point or lightning 18 digit 8087 
math pack. Not for the half mega- 
byte LINEAR address space for 
quick access arrays. Not for com- 
plete music, sound effects & graph- 
ics support. Nor the efficient string 
functions. Not for unrivaled disk flex- 
ibility — including traditional Forth 
screens (sectored or in files) or free 
format files, all with full screen edi- 
tors. Not even because I/O is as 
easy, but far more powerful, than 
even Basic. Just redirect the charac- 
ter input and/ or output stream any- 
where — display, keyboard, printer 
or com port, file, or even a memory 
buffer. You could even transfer con- 
trol of your entire computer to a 
terminal thousands of miles away 
with a simple >COM <COM pair. 
Even though a few of these reasons 
might be sufficient, the real reason 
is that we don’t avoid the objections 
to Forth — WE ELIMINATE THEM! 


Public domain products may be 
cheap; but your time isn’t. Don't 
shortchange yourself. Use the best. 
Use it now! 

HS/FORTH, complete system: $395. 
with “FORTH: A Text & Reference” 
by Kelly and Spies, Prentice-Hall 
and “The HS/FORTH Supplement” 
by Kelly and Callahan 


aor Visa 


HARVARD 
SOFTWORKS 


PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 


















































Mastercard  |masecas) 
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B PROTOCOL 


Listing Seven (listing continued) 


; Return Value: 


a 
’ 


; -6 invalid handle 
. 0 no error 
Handle equ @ab[BP] 
push BP 
mov BP, SP 
mov AH, 3EH 
Mov BX, Handle 
int 21H 
jne Close 1 
neg AX 
jmp Close 2 
Close 1: 
SS Sood AX, 0 
Close 2: 
os pop BP 
ret 
Close File endp 
page 
public Read File 


Read File proc 
2+ 
; Functional Description: 


. 
’ 


near 


Transfers a specified number of bytes from a file into a buffer 


location. If the returned value for number of bytes read is 
, zero, then the program tried to read from the end of file. 

7 Calling Sequence: 

: bytes read = Read File(handle, buffer, bytes to read) 

; Parameters: 

: handle file handle for the file to read 

; buffer ptr to buffer 

; bytes to read number of bytes to read 


Return Value: 


e# Se Se Se Se Se Me Ne . s . . 


-6 invalid handle 

-5 access denied 

0 end of file 

>0 number of bytes actually read 
Buffer equ @ab+2 [BP] 
Count equ @ab+4 [BP] 

push BP 

mov BP, SP 

Mov AH, 3FH 

mov BX, Handle 

mov CX, Count 

mov DX, Buffer 

int 21H 

jnc Read 1 

neg AX 
Read 1: pop BP 

ret 
Read File endp 

page 

public Write File 

near 


Write File proc 
+ 


; Functional Description: 


requested, then an error has occurred. 


e Se Se Se Se Se 


Calling Sequence: 


"oe “se Se Ss Se Se Be 8 


bytes to write 


Return Value: 


Se Se Se Se Se Se Se Ne 


-6 invalid handle 

-5 access denied 

else number of bytes written 
push BP 

mov BP, SP 


number of bytes to write 


Transfers a specified number of bytes from a buffer into a file. 
If the number of bytes written is not the same as the number 


Status = Write File(handle, buffer, bytes to write) 


Parameters: 
handle file handle for file to write 
buffer ptr to buffer 
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mov AH, 40H 
mov BX, Handle 
mov CX, Count 
mov DX, Buffer 
int 21H 
jnc Write 1 
neg AX 

Write 1: 
pop BP 
ret 


Write File endp 


public Move To EOF 
Move To EOF proc 
push BP 
mov BP, SP 
MOV AX, 4202H 
mov BX, 4 [BP] 
xor CX, CX 
xor DX, DX 
int 21H 
pop BP 
ret 
Move To EOF endp 
endps 
end 


Listing Eight 


Title Serial 
include \lc\dos.mac 
pseg 


s+ 
; Table of Contents: 


public 


Open Modem 

public Read Modem 

public Write Modem 

public Close Modem 

public Send_ Break 
dseg 

Comm Params equ this byte 
db 11H 
db 13H 
ole) 2 
db 0 
db Z 
db 0 
endds 
extrn AS Init:near 
extrn AS Set Mode:near 
extrn AS Set_Port:near 
extrn AS Open:near 
extrn AS IReady:near 
extrn AS IChar:near 
extrn AS OReady:near 
extrn AS OChar:near 
extrn AS Send Break:near 
extrn AS OIdle:near 
extrn AS Close:near 
extrn AS Term:near 

2+ 

Function: 


Open the comm port. 


Calling Sequence: 


Parameters: 
Port: 0 = COM1, 1 = COM2 
Rate: 110 baud 
300 
450 
1200 
1800 
2400 
4800 
9600 


SOUP WMP O 


se Se Se Se Se Be Se Ve Se Ve Ne =e Se Se Se Bs Ve Ve Ve Ve Be s 


Open _Modem proc 


push BP 
mov BP, SP = 
mov AX, 4[BP] 
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: file handle 


=s Se Se % =e Se 


. 
f 


End Listing Seven 


XON 
XOFF 


* Baud rate code 


Parity = none 
Word length = 8 
stop bits = 1 


Initialize 


; Set XON/XOFF mode 
; Initialize the port 


Se Se Se Se Se 


Open the port 

Test input status 
Input character 
Test output status 
Output character 


; Send a break signal 


’ 
. 
’ 
. 
, 


Open Modem(Port, Rate, Auto_XOFF) 


3; Get port number 


> Test output idle status 


Close the comm port 
Terminate async I/O 


Auto XOFF: if true, enable auto XOFF/XON flow-of-control 


(continued on next page) 





Work Smart 
with These Powerful 
C Utilities 


Get more value from your C system. 
Boost program quality and slash de- 
velopment time with these professional 


utilities for leading C-compiler systems. 
C Utility Library 


syaS $155 
Over 300 C subroutines ass 


C and assembler source code and 
demonstration programs for screen han- 
dling, color printing, graphics, DOS 
disk and file functions, memory manage- 
ment and peripherals control. 


C-tree $395 $329 
B-Tree database system 

Store, update and retrieve records 
easily. High-level multi-key ISAM 
routines and low-level B-Tree 
functions. Available for MS-DOS, CP/ 
M-86, and CP/M-80. Easily transpor- 
ted. Adaptable for network and 
multiuser. Includes source. 


PHACT $395 $200 
Data Base Record Manager 


Includes high-level features 


found in larger database systems. 
Available for MS-DOS, CP/M-86 


and CP/M-80. 
Pre-C $395 $329 


LINT-like source code analyzer 
Locates structural and usage errors. 
Cross-checks multiple files for bad 
parameter declarations and other inter- 
face errors. 


Windows for C $195°$165 
Versatile window utility 


Supports IBM PC compatible and some 
non-compatible environments. 


PANEL $98 $235 


Screen generating utility 

Create custom screens via simple, 
powerful editing commands. Select 
colors, sizes and types, edit fields. 
Includes direct input utility. 


HALO $260 $199 


Ultimate C graphics 
A comprehensive package of graphics 
subroutines for C. Supports multiple 


graphics cards. 
$395 $315 


PLINK-86 
Overlay linker 

Includes linkage editor, overlay manage- 
ment, a library manager and memory 
mapping. Works with Microsoft and 
Intel object format. 


To order or for information call: 


/CCWAR 





1 800-TEC- WARE 


(In NJ call 201-530-6307) 


UNIX 15 a regystered TM of Bell Laboratones, (-uee. TM Faircom, Inc, PHACT TM PHACT ASSOC 
Pre<. PLINK. 6. TM PHOENIX, HALO TM Media Cybernetics. Inc , PC-luint TM GIMPLE software. 
PANEL TM Roundhill Computer Systems. Lid. WINDOWS FOR C TM Creauve Solunons. CP M TM DRI 
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Blaise Computing provides a broad range of pro- 
gramming tools for Pascal and C programmers, 
with libraries designed for serious software 
development. You get carefully crafted code 
that can be easily modified to grow with your 
changing needs. Our packages are shipped com- 
plete with comprehensive manuals, sample pro- 
grams and source code 








$175.00 


NEW! Full spectrum of general-purpose utility 
functions; windows that can be stacked, re- 
moved, and accept user input; interrupt serv- 
ice routines for resident applications; screen 
handling including EGA 43-line text mode sup- 
port and direct screen access; string functions; 
and DOS file handling. 





$175.00 


Expanded string and screen handling; graphics 
routines; easy creation of program interfaces; 
memory management; general program con- 
trol; and DOS file support. 





$275.00 


Complete screen management; paint data entry 
screens; screens can be managed by your appli- 
cation program; block mode data entry or field- 
by-field control. Specify C or IBM/MS-Pascal. 






$175.00 


Full featured asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; baud rates up to 9600; modem 
control and XMODEM file transfer. Specify C or 
IBM/MS-Pascal. 





$99.95 

NEW! Expanded string support; extended 
screen and window management including EGA 
support; pop-up menus; memory management; 
execute any program from within Turbo Pascal; 
interrupt service routine support allowing you 
to write memory resident programs; schedul- 
able intervention code. 





$99.95 
Complete asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; and baud rates up to 9600. 





NEW! Text formatter written especially for pro- 
grammers; flexible printer control; user-defined 
variables; index generation; and general macro 


facility. Crafted in Turbo Pascal. 





$95.00 
Program chaining executive. Chain one pro- 
gram from another even if the programs are in 
different languages. Shared data areas can be 
specified. 


ORDER TOLL-FREE 800-227-8087! 





am 
gg ee a eee 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 
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Listing Eight (listing continued) 


call AS Init ; Initialize async 
Mov AX, 8 [BP] ; Get XOFF/XON flags 
cmp AX, 0 ; 
je Init 1 
Mov AX, 3 
Init} 

ra call AS Set Mode ; Set them 
mov AL, 6[BP] ; Get baud rate code 
MOV Comm Params[2],AL ; and store 
Mov SI,offset Comm Params 
call AS Set Port ; Initialize the port 
call AS Open ; Open the comm port 
pop BP 
ret 


Open Modem endp 


a 
Function: 


Calling Sequence: 


Returns: 


2 
, 
. 
7 
, 
. 
’ 
. 
, 
. 
f 
2 
f 
. 
s 
2 
’ 
. 
’ 


’ 


ead Modem proc 


call AS IReady 
cmp AX, -1 
jne Read 1 
ret 

Read 1: 
call AS IChar 
mov AH, 0 
ret 


Read Modem endp 


_ 
Function: 


Calling Sequence: 


Returns: 


. 
s 
. 
f 
f 
. 
’ 
. 
s 
2 
f 
s 
f 
. 
f 
° 
, 
2 
f 
. 


Write Modem proc 


push BP 

mov BP, SP 

call AS OReady 

not AX 

cmp AX, 0 

je Write 1 

mov AX, [BP+4] 

call AS OChar 

mov AX, -1 
Write_1: 

pop BP 

ret 


Write Modem endp 


of 


Function: 
Close the comm port. 


Calling Sequence: 
status = Close Modem () 


Returns: 


Se Se Se Se Se Se Se Ne Se Se 


Close Modem proc 


ret_value = Read Modem() 


status = Write Modem (Char) 


Read a character from the comm port. 


-1 if no character is available; otherwise the character. 


; Test input status 
; Ready? 


; Yes 
7 No, return -1 


7 Input character 


Write a character to the comm port. 


0 if could not send the character; otherwise -1 


7 Test output status 


; Ready? 

; No, return failure 
Get character to send 
Send it 

; Success 


Close 1: 
call AS OIdle ; Test output idle status 
cmp AX, 0 ; Done? 
jne Close 1 ; No 
call AS Close 
call AS Term 
ret ES 

Close Modem endp 

z+ 

7 Function: 

: Send a break "character" to the conm port. 
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Calling Sequence: 


Send Break (); 


end Break proc 


mov AX, 50 : milliseconds 
call AS S end_ Break 
ret 


Send Break endp 


endps 
end 


Listing Nine 


title Break 
include \lc\dos.mac 
pseg 


public Set Break, Get Break 


Set Break proc 


push BP 

mov BP, SP 

mov DL, 4 [BP] ; Get state to set 
mov AX, 3301H 

int 21H 

pop BP 

ret 


Set Break endp 


Get Break proc 


mov AX, 3300H 
int 21H 

mov AL, DL 
xor AH, AH 
ret 


Get_ Break endp 


endps 
end 


ST-FORTH $49 


For your IBM PC/XT/AT/PCjr 


A complete FORTH development system for 
beginners or experienced users 
= 100% FORTH-83 Standard 


= ALL source code provided 
Written entirely in FORTH & FORTH assembler 


= Powerful, fast, easy-to-use editor 
Search, locate source, edit errors 


=» Extensive MS-DOS/PC-DOS interface 
Sequential & random files 


= Many more useful utilities 


= Supplied as MS-DOS .COM file 
Compatible with all versions of DOS 


s 148-page User's Manual 
= Unconditional money-back guarantee 


Beginner's pkg based on Leo Brodie’s Starting FORTH 
available 


Call or write for brochure and order form. 


Sunset 1954 Menalto Ave. 


Menlo Park, CA 94025 


5 Jechnology 45) 325-3680 


























ee 
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End Listing Eight 


End Listings 





SAE BB AAR NESE SKE BE EEE VE EDS BELIRIA RETTES 
NST EE AEE EE CEE 
SS Ee ee eee 


C- i ara eaectortateaoatsta 



















: All products are. written entirely i in. K&R C. Source. 
code included, Nb pee Powerful & Portable. 


m7 #}%4# 7599 


° High. speed random-and sequential access. 
® Multiple keys per data file with up to 16 million records pet fle. 


» Duplicate keys, variable length data records. ates a 
mu DN 4 | 10. oo wd 


® Greatly speeds application development. 
° Combines ease of use of database manager | with fexiiliy of program) eee 
ming language. 
, Supports multi key files and dynamic index definition. 
corey ny to use: 


a 


e Patterned after the UNIX utility. 
»... Works-for programs-written-in-every language. - snd 
© Full macros, File name expansion and built in ules, 


Full Documentation.and Example Programs In : lL > a ia 












































ALL THREE PRODUCTS FOR = 





1343 Stanbury Drive 
Oakville, Ontario, Canada 


L6L 256 
(416) 825-0903 


Credit cards accepted. Dealer inquiries invited. 


For more information cail or write: 
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Instant-C: 
The Fastest 
Interpreter for C 







Runs your programs 50 
to 500 times faster than 
any other C language 
interpreter. 









Aa C interpreter can save you compile 
and link time when developing your 
programs. But only Instant-C saves 
your time by running your program at 
compiled-code speed. 


Fastest Development. A program 
that runs in one second when compiled 
with an optimizing compiler runs in 
two or three seconds with Instant-C. 
Other interpreters will run the same 
program in two minutes. Or even ten 
minutes. Don’t trade slow compiling 
and linking for slow testing and debug- 
ging. Only Instant-C will let you edit, 
lest, and debug at the fastest possible 
speeds. 


Fastest Testing. Instant-C immedi- 
ately executes any C expression, state- 
ment, or function call, and display the 
results. Learn C, or test your programs 
faster than ever before. 


Fastest Debugging. Instant-C gives 
you the best source-level debugger for 
C. Single-step by source statement, or 
set any number of conditional break- 
points throughout your program. Errors 
always show the source statements 
involved. Once you find the problem, 
test the correction in seconds. 


Fastest Programming. Instant-C 
can directly generate executable files, 
supports full K & R standard C, comes 
with complete library source, and works 
under PC-DOS, MS-DOS, or CP/M-86. 
Instant-C gives you working, well- 
lested programs faster than any other 
programming tool. Satisfaction guar- 
anteed, or your money back in first 

31 days. Instant-C is $495. 







































Rational 


Systems, Inc. 


P.O. Box 480 
Natick, MA 01760 
(617) 653-6194 
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LETTERS 


Listing One (Text begins on page 8.) 


Listing 1 - Square root algorithm plus code to benchmark and test it. 


INT_ROOT SEGMENT 


ASSUME CS:INT_ROOT 


; Argument passed in BX. 
; Root returned in BX. 
; All registers except 8X preserved. 


GE_256: 


GE 4096: ADD 


GE_32768: CMP 


NEWTON: 


GOT_ROOT: POP 


CALC_ROOT ENDP 


PUSH AX 
PUSH CX 

MOV AX, BX 

OR BH, BH 
JNZ GE_256 
CMP BL, 1 
JBE GOT_ROOT 
MOV CL, 4 

SHR BL, CL 
ADD BL, 3 

JMP SHORT NEWTON 
MOV BL, BH 
MOV BH, 0 

JS GE_32768 
CMP BL, 16 
JAE GE_4096 
SHL BL, 1 

SHL BL, 1 

ADD BL, 13 


JMP SHORT NEWTON 


BL, 50 


JMP SHORT NEWTON 


BL, 255 
Jz 
ADD 
JNC 
MOV 


MOV 
DIV 
ADD 
RCR 
MOV 
MUL 
CMP 
JBE 
DEC 


CX 
POP 
RET 


7Listing 1 - Continued. 


sHold argument in AX. 


:If arg is zero or one, 
;then root = argument. 

sIf 2 <= argument <= 255 

sthen guess = 3 + arg/16. 


*If 256 <= argument <= 4095 
sthen guess=13+4* (arg hi byte). 


sIf 4096 <= argument <= 32767 
zthen guess = 50 + arg hi byte 


sIf arg hi byte=255 then root=255. 
GOT_ROOT ;This prevents ovflow by DIV. 


BL, 40 
NEWTON 
BL, 255 


Cx, AX 
BL 

BL, AL 

BL, 1 

AL, BL 

AL 

AX, CX 
GOT_ROOT 
BX 


AX 


;If 32768 <= argument <= 65279 
;then guess = 40 + arg hi byte. 
;Guess must never exceed 255. 


;Save argument in CX. 

;Divide by guess, 

*Guess + quotient. 

;New guess=(old guess+quot) /2. 

*RCR shifts in carry from ADD.; 

;If the square of the new guess 

zis greater than the argument, 
;then we decrement new guess 

;to get the correct root. 


; Code to time and test CALC ROOT is designed to be run under; 


* DEBUG and does not do a normal return to DOS but instead ; 
; does an INT 3 at the end of each routine. ; 


=e Se & =e Se Se 


TIME OVER: 
INNER OVR: 


END_OVER: MOV 


TIME ROOT: 
INNR_ ROOT: 


END_TIME: MOV 


TIME 


MOV 
MOV 
MOV 
INC 
JNZ 
DEC 
JNZ 
AH, 2 
MOV 
INT 
INT 


MOV 
MOV 
MOV 
CALL 
INC 
JNZ 
DEC 
JNZ 
AH, 2 


MOV 
INT 
INT 


ENDP 


BP,15 
SI,0 

BX, SI 

SI 
INNER_OVR 
BP 

TIME OVER 


DL, 7? 
21H 
3 


BP,15 
SI,0 


TIME_ROOT computes the root of each of 65536 possible ; 
arguments 15 times for a total of 983,040 roots. ; 
TIME OVER represents the looping overhead in TIME ROOT. ; 
; The difference between the two times is the time to call - 
and execute CALC ROOT. ; 


zInitial value. 


;Beep speaker. 


zInitial value. 


7Beep speaker. 


(continued on page 62) 
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The first open-ended. 
multi-user software system 
that integrates your 
custom application with 

a full range of standard 
business programs. 


The Ato-Z™ Integrated System for MicroVAX II™ and MicroPDP-I1"" 
Now you can integrate any number of your custom multi-user appli- 
cations with word processing, graphics, spreadsheet, data manage- 
ment, accounting, and thousands of VAX™ and PDP-11 programs. same 
menus, commands and files with no need for a system manager. 


Tell me about A-to-Z on MicroVAX™ and MicroPDP-II™ (1 Reseller L) Developer 








Name Title 
Company Phone 
Address 





City State Zip ™ 
Send to: Digital Equipment Corporation, Inquiry Dept., fi A ae Hi a | 
NROQ2-1/H3, 444 Whitney Street, Northboro, MA 01532. 


© Digital Equipment Corporation 1986. Digital, the Digital logo, A-to-Z, MicroVAX Il, MicroPDP-l1, and VAX are trademarks of Digital Equipment Corporation. DD786 


for the Apple® | [ 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 20 sec 


Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec 


ISYS FORTH is a FORTH-83 compiler 
designed especially for scientific and 
engineering applications. 

@ FASTEST — Sieve benchmark, 3.3 
seconds/pass. Compiles to machine 
language. 

FLOATING POINT WITH TRANSCEN- 
DENTALS, single and double precision. 
16-BIT 65802 SUPPORT for execution 
speeds 50-100% faster than the above. 
FIXED POINT THEORY AND EXAMPLES 


(a 30-page chapter). D*/ for double 
precision fixed point. 


TURTLE AND CARTESIAN GRAPHICS 
with 70-column character set and dou- 
ble hires support. 

MACRO ASSEMBLER. 

DOS 3.3 FILE INTERFACE. 
FULL-SCREEN EDITOR. 

144-PAGE MANUAL WITH TUTORIAL. 
PRICE: $99, NO EXTRA CHARGES. 


ILLYES SYSTEMS 
PO Box 2516, Sta A 
Champaign, IL 61820 
Phone: 217/359-6039 


For any Apple ][ model, 48K or larger. 
Apple is a registered trademark of Apple 
Computer. 
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LETTERS 


Listing One (Listing continued, text begins on page 8.) 


:Listing 1 - Continued, 


; LLL LLL LLL LS LSA LS SS A A SE OS TD ONS a CaS SED GES ae amas anes an as eran on anes ewan en anew esesanes © 


; If CHK _ROOT detects a bad root, it displays a message and ; 
; leaves the NG root in BX and the argument in SI. ; 
; If all roots are OK, a message to this effect is displayed. ; 


sInitial value. 
CHK_ROOT: MOV BX, SI 
CALL 
MOV 
MUL 
JO 
CMP 
JA 
MOV 
INC 
MUL 
JO 
CMP 
JBE 
NEXT_ARG: INC SI 
JNZ CHK_ROOT 
JMP SHORT OK ROOTS 


§ 
g 


= 


7 


7DX,AX contains root*2. 
7NG if root *2 > 65535. 


| 


nM 
8" 


*NG if root*2 > argument. 


PRU EEZEE 
BB 


;DX,AX contains (root+1)%*2. 
ARG ;If ovflow then OK. 


5" 


7NG if (roott+1)*2 <=argument. 


OK_MSG DB ODH,0OAH, ‘All roots tested OK.',ODH, OAH, '$' 
NG MSG DB ODH, OAH, 'Bad root in BX. Arg in SI.',ODH,0OAH, 'S' 


DX, OFFSET OK MSG+100H 
JMP SHORT DO MSG 
DX,OFFSET NG MSG+100H 


OK ROOTS; MOV 7DS points to Pgm Seg 
: 7Pref which is 100H 


NG ROOT: MOV lower than code seg. 


DO_MSG; MOV AH, 9 *Print string. 
INT 21H 
INT 3 ;Back to DEBUG. 
TEST ENDP 


INT ROOT ENDS 


Listing Two 


Listing 2 - BASIC program to test if a formula makes good square root guesses. 


End Listing One 


10 FOR I = 2 TO 256 

20 Q=I*I -1 

30° * 

40 ‘Trial Formula to Calculate PO. 

50? 

60 QHI = INT(Q/256): QLO = Q-OQHI*256 

70 IF QHI = O THEN PO = INT (QLO/32) + 3: GOTO 160 
80 IF QHI < 16 THEN PO = 13 + 4*QHI: GOTO 160 
90 IF QHI < 128 THEN PO = QHI + 50; GOTO 160 
100 IF QHI = 255 THEN Pl = 255: GOTO 210 

110 PO = QHI + 40 

120 IF PO > 255 THEN PO = 255 

130.'* 

140 * Newtons Method 

130" 

160 P1l=INT((PO + INT(Q / PO)) / 2) 

170 IF Pl > 255 THEN PRINT “Pl > 255 when Q = “;Q:END 
180 ' 

190 ‘Test result 

200 * 

210 P = INT(SQR(Q)) 

220 IF Pl <= P+1 GOTO 240 


230 PRINT “For Q = “;Q;" Pl is Qreater than P+l. “:END 
240 NEXT I 


250 PRINT “Formula works for all worst cases." 


Listing Three 


Listing Three 


End Listing Two 


INCLUDE MACLIB.ASM sby Neil R. Koozer 

LIST QN ; Kellogg Star Rt. Box 125 
MACLIST OFF ; Oakland, OR 97462 
: (503) -459-3709 

7 SQR.ASM 


7Note that words like BR1 and BFS1 are macros to emulate BR:B and BFS:B 


GLOBAL SQR 
SQR *Square root function for 32000 floating point 
RESTORE [RO] 


suse ret. addr as a pointer 
*get operand address 
;get part of operand 
;get other part of operand 
make the implicit 1 explicit 


MOVD 0(RO),R1 
MOVD 0(R1),R6 
MOVD 4(R1),R7 


SBITB 31,R7 (continued on page 66) 
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Fundamentally new ideas don’t come along very often, but when they do, they can be very 
rewarding. Artificial Intelligence and Expert Systems are emerging technologies that promise to 
revolutionize the software industry. We at Programmer's Connection are pleased to be your 
personal connection for these and other fine products for IBM Personal Computers and 
compatibles. 


EXPERT EDGE by Human Edge 795 659 
Powerful expert system builder for creating interactive knowledge-based programs. It has a 
natural language interface that makes creating an expert system advisor easy by prompting for 
rule-based knowledge one step at a time. There's also a special user language that allows you to 
use your text editor to create or modify knowledge bases. Knowledge checking examines your 
knowledge bases for redundancies and conflicts. It supports Baysian statistics and probabilities 
and provides full control over the screen, windows, color, data formats, numeric punctuation and 
much more. DIF and SYLK formats are supported for easy interface to other programs’ data. 
Resulting systems use an interactive dialog to communicate with the user providing fast 
responses, reasoning justification, context sensitive helps, printed reports, footnotes and much 
more. Requires 256K memory (512K recommended for large programs of up to 500 rules). 


Experteach Il by Intelligenceware 475 389 
Comprehensive guide to expert system concepts and technology that provides a variety of Al tools 
for expert system experimentation. An on-line tutorial describes the operation of expert systems. It 
includes both a forward chaining and a backward chaining expert system shell implemented in each 
of LISP, Prolog, Pascal and dBase ||. They support inexact reasoning with variables and how & 
why explanations. Expert system shells may be edited with a built-in rule editor. Includes source 
code and design documents for all eight expert system shells. The system comes with both a 
complete Lisp interpreter and a complete Prolog interpreter. It also includes comprehensive case 
studies of several major expert systems and a comprehensive bibliography. Requires 256K 
memory. 


EXSYS 475 339 
by EXSYS Inc. Runtime License 600 479 
Development software for creating IF-THEN-ELSE probabilistic knowledge based expert systems. 
It can interface with other programs and includes a built-in report generator to print expert system 
analyses in report format. It includes an editor program, a copy-protected runtime program, an 
expert system file compression utility, a utility to arrange rules for maximum speed, demonstration 
programs and more. The developer's Runtime License includes a copy of the runtime program 
without copy-protection and permission to copy and distribute an unlimited number of copies of 
the runtime program with no royalties. Requires 256K and uses full available memory. 


GCLISP Golden Common Lisp GCLISP 495 CALL 
by Gold Hill Computers GCLISP 286 Developer 1190 CALL 
Artificial intelligence development language that is a major subset of COMMON Lisp. GCLISP 
includes a small model interpreter, the GMACS editor, the San Marco LISP Explorer, on-line help 
facilities, the book LISP by Winston & Horn, the COMMON LISP Reference Manual by Guy Steele 






and the GCLISP user manual. GCLISP 286 Developer also includes a large model interpreter that 
can access up to 15 megabytes of memory and a large model compiler that allows applications to 
run up to 15 times faster. Compiled code may call interpreted code and vice versa. GCLISP is copy 
protected and requires an IBM PC or AT or 100% compatible with at least 512K memory. GCLISP 
286 Developer is not copy protected and requires an IBM AT or 100% AT compatible with at least 
512K memory. 


INSIGHT INSIGHT 1 50 45 
by Level 5 Research INSIGHT 2+ 485 389 
Powerful expert system development tools that allow you to quickly and easily develop 
knowledge-based systems. Knowledge bases are written in the English-like Production Rule 
Language (PRL) and then streamlined into compiled code that is run by INSIGHT. This series of 
software is upwardly compatible to allow plenty of room for growth. INSIGHT 1 is an expert 
system primer designed for small systems, prototyping and job aids. It combines IF-THEN-ELSE 
rules and goal outlining to define knowledge that is processed with classical backward chaining 
reasoning. INSIGHT 2+ includes a Pascal compiler, Pascal interpreter, a dBase interface, a Turbo 
Pascal interface, intrinsic math functions, advanced knowledge representation and a backward 
and forward chaining/goal driven inference engine. Requires 512K memory. 


Microsoft LISP 250 189 
Advanced implementation of the LISP language that supports over 400 Common LISP commands, 
macros, special forms and control variables. It provides extremely fast performance and can be 
used to create exceptionally compact programs and data files. The system takes full advantage of 
up to 512K memory and features an efficient, two-pass garbage collector that performs automatic, 
dynamic-memory management over all data spaces. The package includes a powerful, symbolic 
LISP debugger that features a multi-level break-and-trace facility and an execution profiler. There 
are separate windows for editing and debugging. Comes with an interactive tutorial. 


Q’NIAL by NIAL Systems 375 359 
Nested Interactive Array Language is a very high level fifth generation programming language that 
combines ideas from APL, LISP and structural and functional programming. It provides the best 
features of present day languages in an environment suitable for rapid programming. This highly 
extensible language provides symbolic data handling that makes words, letters and sentences as 
easy to handle as numeric data. All data elements are defined as nested rectangular arrays. Data 
structures are displayed with boxes that clearly indicate the content and structure of arrays. 
Applications are designed in immediate mode and may be run in either batch or immediate mode. 
Includes a host interface allowing execution of DOS programs. It comes with a system editor, 
library of programs and graphics support. 


Turbo Prolog by Borland International 100 79 
Complete Prolog development system that includes a compiler, an interactive editor, a 200 page 
reference manual with a step-by-step tutorial and demo programs. This very fast incremental 
compiler compiles over 2500 lines per minute on a standard IBM PC. It generates native in-line 
code and object modules that are linkable with the standard DOS linker. When the compiler 
encounters an error, the interactive full screen text editor is invoked with the cursor placed over the 
offending code. It supports a flexible, object-oriented type system, graphic windowing, text 
windowing, and full I/O facilities including formatted 1/0, streams and random access files. 
Integer values range from -32768 to 32767; real values range from 1E-307 to 1E+308. Complete 
built-in trace debugging facilities allow single stepping of programs and the ability to view the 
running program’s source code. Includes Geobase, a free natural query language database 
designed and developed around U.S. geography that includes commented source code on disk. 
Requires 384K memory. 
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apllianguage 


APL EPLUSL EC” Syste by SUSG 62 ons ek 595 
Bre Phere’ Toos Volt by STSC. ee 295 
APL PLUS/PC Tools Vol2 by STSC.. 85 
APL*PLUS Spreadsheet Manager by STSC o.oo. New 195 
APL*PLUS/UNX System For AT Xenix by STSCoovcecccceccssecseessseeeseses 995 
Btrieve /SAM File Mgr with No Royalties by SoftCraft ......csccsesccseeesse--0 250 
Financial/Statistical Library by STSC ooo. ceccceccccseesseecseesseen 275 
FRESCO Business Graphics Library by Mr. APL oi..esscecscssscssscecseesseessees 300 
POCNOE ARE Dy ait ee 95 
STATGRAPHICS Statistical Graphics System Dy STSC vececccccecceccsosee 695 
artificial intelligence 

Ewer oy Huma loge |....5. 0 ee EE 695 
Exporter Dy Human Edge es 795 
Experteach Complete System by Intelliware ........cccsccesescsscsssssesesseseeeee. 475 
EXSYS Expert System Development Software by EXSYS.u.ceeecccseesseee 395 
GCLISP Golden Common LISP by Gold Hill ....ccecccsccsssssssssesseesseeseeesseeees 495 
GCLISP 286 Developer LW Interpreter & LM Compile r.........cce0-000000+- 1190 
Insight 1 A/ Primer by Level Five RES@ArCh ow... ..eecceccecccceesesseesseeeeseeens 50 
Insight 2+ by Level Five Research oo....ecceccececccsceseesseeseessesteeeeee New 485 
Miccosot lLiSP Comimon iSP sciscii isnt gsciccievien sbi lacciatdscesentshcacden. 250 
Methods Smalitalk-based Prototyping by Digitalk ........c.cccccscccseesseeseeee 250 
PLA microProlog by Programming Logic Associates.................. 250 

WEE AE i Miser git cas edteh doiedbae oi sSaoveau peck oboas ih as ee sles 450 
PLA Professional microProlog by Programming Logic.............. 395 

WOE PAF ea a ess DS Hone Riencgga ded aaa or etec aks nw 695 
Prolog-86 from Solution SysteEMs ooo...cececceccescecsessesseesesesseseeseesseeseene 95 
Prolog-86 Plus from Solution SysteEMs .0.......0..cccccecccecceeeeseeseseeeeeeee 250 
QNIAL Combines APL with LISP by NIAL SysteMS........c.ccccsceseeeeeees 375 
SOU RRNNE AR IY SEMEN sas icscdacsessarctsenssttnsny ant one eileen coe ead 125 
TransLiSP from Solution Systems ...........cccccccccsecssesssesssesseessessesseeseseee 75 
Turbo Prolog Compiler by Borland International ..........0..0.cccc0.+. 100 

assemblers and debuggers 
8088 Assembler w/Z-80 Translator by 2500 AD wu. eeecccecseseseeesteeeeee 100 
Advanced Trace-86 with ASM Interpreter Dy MOrgal ............0000-+ 175 
Codesmith-86 Debugger by Visual Age........c.ccccccesscescseesseecseesseseeeen 145 
Cross Assemblers Over 25 Varieties from 2500 AD .........cccceceseeeee CALL 
Microsoft Macro Assembler with utilities......0...0..0..ccccccccessesssessesseeseen 150 
Periscope | w/Board & Switch by Data Base Decisions.............0... 295 
Periscope II w/NMI/ Breakout Switch Only .....cccccecsscsssssssecssseseesseseseeseesee 145 
Periscope 1-X Software Only .....ccccccccceccccsssesecsesessscsssssssssscecsscsescsescees New 95 
The PROFILER with Source Code by DWB Associates .................. 125 
Turbo EDITASM Fast Assembler by Spee@dwar ...........ccccceceeseeseeeees 99 
Visible Computer: 8088 by Software Masters... 80 
basic language 

BetterBASIC by Summit Software.....cccccccecseccesesssssesesecseeeescsreaeens 200 

COPED T OVECRLL YIM INE sche gs siti nies a ohio ccouscenhaesS 99 

SHEA VS TU ACE vinci sa vee ics ev hdeaaeceac esa eRe 99 

Sy APNOEA si nat none en ae a ae New CALL 

PRU) ES IOUS sts cran ts Savin Meare a ik, wath och vasrcarh teouedhgaeaboa 250 
Microsoft QuickBASIC Compiler New version ...c.ccec.cccccseece-0e- 99 
Professional BASIC by Morgan Computing .........c.::ccccccecsceeceesseeen 99 

UG? PAR SUDOGK ou caste ue eG YM 50 
True Basic from Addison-Wesley ..........cccccceccsscecsesessesseesesscseeseseteseeeens 150 

Pan =Gime MO tiles i.e aap tert cali iiska Ses ca acacapndaseisietsaccy oe 500 

bliaise products 

Asynch Manager Specify for C or PasCall .ccccccccccsscssesessssessesecsesessesessesee 175 
C Tools Combination Package Both Items BeloW........ccccsecssesse0ss00-0- 175 

aH GINS sa Hood ous Landaa hashes hak ioe och GUE aed nL NE EC ag OR aie de 125 

So PNG ee alse oat Sore Seal, Merny te ek Soe te 100 
ExGe Program CHGiier onc 8 2 nc oe eS a Re 95 
Pascal Tools Combination Package Both Items Below ........c0....-+. 175 

EGC AY TONS yo isis telek ae ee, MC et PC See 125 

PRED OMS Ocoee oe ede ae a eee ste 100 
Puree ASYNCH for Turbo Pascal 22. a i 100 
Turbo POWER TOOLS for Turbo PasCall..ccccccccscsscssssecsessessesesseeseseesveses 100 
View Manager Specify for C or PaSCal ....ccccccscsssssssssessessessessesessesseceesecseens 275 

With SOUIGe COdG Likes eee ey ce ee BARS 295 

borland products 

REF LEX. Dota ase Sustomc oe ee Se a eis 99 
Turbo: DATABASE TOOLBOX 25.65.0025 scclcccche 55 
LUN EDEROR FOOLER fic sek ac ee 70 
Turbo GAMEWORKS TOOLBOX ooo cccccccccccceccssceseessecsseeseessees 70 
Turbo GRAPHIA FOORBOR oe oa 55 
Taro LGBT oo a es See a ie 99 
Farbo PASCAL th... 25.s0 disks ieee Nie sce 70 

ER SOG Og So at 110 

with G06? atm BOO. oc 50o a Ree Ce eS 125 
Turbo: Prolog Gamipuen oo ck ee 100 
Turbo TUTOR for Turbo PASCAL fe a i 35 


449 
239 

69 
159 
795 
195 
219 
269 

79 
539 


589 
659 
389 
339 
CALL 
CALL 
45 
389 
189 
209 
219 
399 
349 
599 
CALL 
CALL 
359 
99 
CALL 
79 


209 
239 


75 
38 
54 
54 
38 
75 
49 
TF 
84 
79 
28 


ccompilers 


C-86 Compiler... See Computer Innovations Section 395 
Datalight C Compiler Smali Memory Model ......cccccccsccsssssessessessescesessesses 60 
Datalight Developer's Kit with Large Memory Model.cecccsccsccseese0se000- 99 
DeSmet C Compiler with Source Debugger o.c..csecsecscecsesssessessvessesseensees 159 
Eco-C Complete Development System by ECOSOfft .......e.ccccssesessseeseeseeen 125 
RUC Sy COMICON apes echt See Lattice Section 500 
Let's C Compiler by Mark Williams oo... ccccccccccsecseseesesseeseseesceeeses 75 

with csd Source Level DebDUGGE? oo... eeccssccceseeseeseeseseeestensee 150 
WC POSTE AS CHIE ood ooo cein ieee VS 395 
MWC-86 by Mark Williams ooo. ccccccccccccececececceccceeeees Special Price 495 
Wizard C Compiler Includes Lint by Wizard SysteMS .......cccscecsc00 450 

cinterpreters 

C-terp by Gimpel Software Specify compiler interface .o.ccccsseesseccse0-e 300 
instant. C by Rational Systems. ...:c..60 iso cnt. 500 
Interactive C by IMPACC Associate ....0....0..ccccccscssesssessssesssessseeeseeee 249 
nun/C by Age. ot Reason iiss cs een Ba oe 150 
Run/C Professional by Age of REASON o....ccccecceccccsesseesseessessesseeseeevees 250 


c utilities 
Also refer to Blaise, Computer Innovations, Lattice, Microsoft, 
Phoenix, Polytron, SoftCraft and Xenix System V sections. 
APT Application Programmer's Toolkit by Shaw American .... 395 


SOURIS Sp RAPMUAA EISEN COINS oo ocho co cnn pu scicshcccvopssorinons babeeshe ae 175 
C Essentials by Essential Software oo... ccccccccsssessecsesseeseeseeseeseeses 100 
See WY WANGE MIG. SYSIOING 56s eo psec aecteeee 195 
C Power Packs by Software HOriZOns ..0......cceccccecccecsceseseeeeeeeeeeeeeeeeee CALL 
c-tree /SAM File Manager with source by FairCom....0........0.:.ccceeeeene 395 
C Utility Library by Essential Software 00.0... cececeeeseeeeeee 185 
Ss NSS 13) VSCOM as. soi et nica issn whet ackagss 100 
Re RNIN SOV SOON i fc eat ale hoe ges Ma 50 
AbVISTA Single-User DBMS Dy Raima oon... ecccccccccsceseesseseseeeseseeeseeeeeseees 195 
TR TS CRN og asic eects rw che nso e scded pass ane a asoeeets 495 
dbVISTA Multi-User DBMS DY PRAINNIG ...3 cc ee Ce a ei. 495 
METOT SRI FOR GOCE. Fie oss sass cuits fe ccnancbs uit ancle Meg 990 
EditCheck by Everest Solutions ........0.cc.cc.ceccecseessesseeseesessesseeseeseesesvenve 90 
Entelekon Combo Package All 3 items DeIOW ..s..s.cccsscssessesesseseeseeeeees 200 
BE A LINN Yi ie sh ak ca Sh scence oe tae Posie eae 130 
OS IE RIS a2 22. onc ae ye a omen ata aE desea 130 
Bepervente Jor Ce. cea oe ee Re ao ee 50 
Essential Graphics No Royalties by Essential Software................. 250 
Flash-up Windows by Software Bottling of NY oo... 75 
GraphiC Mono version 2.2 by Scientific Endeavors uu... cece. 280 
GraphiC Color version 3.0 by Scientific Endeavors ..0.0......0cce ee 350 
The Greenleaf Functions by Greenleaf Software... 185 
Greenleaf Comm Library by Greenleaf Software 0.0.00... 185 
The HAMMER by GES Systems o.oo. ceccecccsceccsneessssnnenenee 195 
MetaWINDOWS by Metagrapnics o.oo cccceccsecessesesesteseseetetseeseeee 185 
MetaWINDOWS/Plus by Metagraphics..........0...cccccccececcceeteseeeeeeeeees 235 
Multi-Halo with Royalties by Media Cybernetics... 300 
On-line Help from Opt-Tech Data Processing ..0........0..c.cececeeeeees 149 
PANEL by Roundhill Library Source Also Available ..........c0c.c0000e000e0 295 
PO iim by Gimpel Senware os a 139 
Scientific Subroutine Library for C by Peerless... 175 
Vitamin C by Creative Programming ..0......c.cccccceseceseeseseesesesesseeeeseeee 150 
VC Screen Interactive FOFMS DeSIGNl.......c.c.cssscsssseesssseseseseseseseeesceeees 99 
Zview by Data Management Consultants ........0..ccccccccceseeeeeeeeeeeeeee 245 
cobol language 
Micro Focus COBOL Workbench...0.0.0.....0....cccccccccceces cece eceseeeeeeeeees 4000 
RNGrO: FOCUS Level ll COBOL. .ic.....50:sccckcns cd Special Price 1500 
Wek PMN R Sy 20: aetearpcdh 2-5 Sessa cesfoccuces oes ban sbaghon hie 200 
Pete NNR ies cear Stes a ache 09 cadk scsi nsase ace ahione ods vara chip Coble tA de 300 
MO VGN AE ATRIANOR ss aad, Special Price 900 
Level TK SOURGE WEE EGR si asics cs so acvcndeane Special Price 2000 
Micro Focus Level Il COBOL For Novell NetWare .........c.00000+. New 2000 
PURSE ID EUR PUTT Sm gs eos cove anes vnc dssansvcccsgeabcrgrercina 175 
Micro Focus Professional COBOL 200.0... ocececccceccseeseeseeneseeeeeeeee 3000 
Multi-user Runtime for PC Network .....c.cccccccccsssssesssssssseseensscseens New 500 
PUMRCYCOENIUE RODEO aes raked ans aveusn eeseaees See Microsoft Section 
OPT-Tech Sort Also Sorts Btrieve Files .........ccccccecssssesesesesescsceessscesnseseeees 149 
ONE N e io cas, casein ccosdpciediiay hoo ews vas clnrandensdick bres Mencia 995 
RM/COBOL by Ryan-McFarlan .0.......ccccceccccccsccscssecseseeeessssesseeseeeeees 950 
RM/COBOL 8X ANSI 85 COBOL by Ryan-McFarland...........c.0.00:. 1250 
computer innovations products 
S= MPUPOIUPUES SOMME, ii onda csifcjeevectansticsocs ys ca cle 395 
NU RON oe ea aA Se ts ea stvesl sp onraigecdamre daa Ah eRe 150 
Cl Probe Source Level Debuggel................s...s.cssecoccssssssasesnsssssceseoe.oveseceee 225 
RGN TROBNUE OME WO GPU inci os Fass scos ceachncdd eka ec 195 
InteOOHIGING CC Interpreter. 2 ooo sscs..css.issescoscnpesstoiecncevicocaci ence 125 
forth language 
CFORTH Native Code Application Compiler Oe EE oo es ee New 300 
LMI Forth/83 Metacompiler Specify Target Processov............. New 750 
PC/Forth by Laboratory MicrosysteMs .o....cccccccccscccsssccssessssssecsseeeseee 150 
PC/Forth+ by Laboratory Microsystems... cccscccssesssecsssessseesssessseee 250 
Advanced Color Graphics Support... c.cccccccccccseccscssessesessesees New 100 
Enhanced Graphics Suppott.....ccccccccccccccscsscsssecsssessesesceseeseeees New 200 
WAAL WEES HEISEI Cains ince, se gicaee a eee New 100 
Interactive SyMbOIIC DEDUGGET 0... ecseccsseccsssecssecessecsscessessses New 100 
Mauve Code Optimizer... ee New 200 
PCTERM Modem Program for SmartMOde@M -eeececccessesseessecseeoseosee. New 100 
settware Floating POINt ic in. csecabcutolenticgtes New 100 
fortran language 
ACS Time Series by Alpha Computer ServiCe.n...ccccccccccccccscccssceseees 495 
Btrieve JSAM File Managelr.......c.ccecccccsesceceeseseeseeeees See SoftCraft Section 
For-Winds by Alpha Computer Service .n......cccccscsssesscssessessessessesseeses 90 
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239 
379 
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99 
189 


339 
135 
85 
325 
CALL 
329 
139 
89 
45 
159 
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429 
849 
79 
175 
115 
115 
45 
219 
69 
219 
299 
135 
135 
175 
139 
199 
219 
119 
229 
109 
139 
139 
85 
199 


3599 
CALL 
169 
269 
CALL 
CALL 
1799 
159 
2395 
449 


119 
795 
675 
995 


289 
139 
199 
149 
105 


239 
599 
119 
209 
79 
159 
79 
79 
159 
79 
79 


429 
79 
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fortran language continued softcraft products 
Forlib-Plus by Alpha Computer ServiCe...........-.:.:c cece 70 55 Btrieve /SAM File Manager with No Royallti€S ......:ccccccceeseseseteteneses tates 250 195 
NN ON eS irsckg Ao aces -snn grncesbcooncoryonsncrege 350 209 Xtrieve Query Utility fOr BtrieVe ........ ese cecceeceseeiitet teen tetetee teeters 195 169 
MORE FORTRAN by Peerless Engineering «on... 125 99 Rtrieve Report Generator for Xtri@ve........ceccesecessereteteteseseseseeeeeeeeneenentans 85 79 
Multi-Halo with Royalties by Media Cybernetics... 300 219 SoG FOE FP, WR TIOIIS 0. sissies ocicensath ascends te pcan Lave aea ni ay nsaatnneeatae 595 465 
PANEL Screen Designer by ROUNAHIII «00.0... cece ees eeseeetesteeeteseeneeneeneees 995 229 Xtrieve/N Query Utility for BtrieVe/N ...sseceseesesecseseseeesesseeneseenenereeeeesnes 395 299 
PC Fortran Tools by Stat Com System ...........:cecccecceeeeseeeeeeenes 179 159 Rtrieve/N Report Generator for Xtri@Ve/N........ccccccceecesre tees eereeees 175 159 
PolyFortrar Tools Dy Polytron... ecesteesneessnneesnesssesssnessneees 179s: 139 text editors 
RM/Fortraa by RyAn-MCF ar land ...scssssssseeeeeesenenseeeeeeeestiiesssseneeen 595. 395 Brief from Solution: Systems .5 ii Bi LE tee eeecerie 195 CALL 
Scientific Subroutine Library by Peerless... ccc eseeiteen Fea 139 Epsilon Muiti-tasking Emacs-like editor Dy LUQ€@MU..........::-eeeos 195 165 
The Statistician by Alpha Computer S€rviCe.......-- sen 295 259 FirsTime for Turbo by Spruce TeECHNOlOGY.......c::scccecreceeenseen 75 69 
Strings & Things by Alpha Computer S€rviCe «n-ne 70 55 KEDIT Xedit-like editor by Mansfield Software Group ............0: 125 109 
lattice products SPF/PC by Command Technology Corp ..e.ccsccssssseseessssnenssee 195 165 
PSUR i hes NENTS seco oe ecclesia ab fila selal mp ccarnppaetesuantoe 500 299 Vedit by COMPUVICW .........s eee ieeeecceesstsecernnntiieecennnnseteennnsseesestissseeee 150 = 115 
eth Library Source CODE 60 ip ctr tesenrecthe la deitnces taboo 900 549 Vedit Plus by COMPUVICW...........-..ecs secs eceseteeeeteenneeeeneeeteneeeenensnatee 225: «AGG 
C Cross Reference Generator... .cccceccsceccsseesstetsesseessnsessseesenneen 50 39 XTC Text Editor with source Dy WENAIN .......---s-secseeeseees essence 99 84 
SDs PSCH SU Cite COU eos cslgsepceteeanstccanse shetpsantieebegetanetlti-Ge aceite 200 159 turbo pascal utilities 
C-Food Smorgasbord Function Library.......s.ccccsceeceeeeseseeseenseneesee 150 99 Also reter to Blaise, Borland and SoftCraft sections. 
with Source COI sade i ah sis ccna nv cre mee Sa baekat gach de nv eed ngs Pnden a cthlowe eed 300 195 ALICE Turbo Pascal Interpreter by Software Channels ..................- 95 85 
C-Sprite Source Level DeDUGGEN .........:seseceeceesceeeseessseeeeneneeneccnnneenente 175 139 FirsTime for Turbo by Spruce TeEChHnOlOQy ...........cec eee 75 69 
Curses Screen Manager ....csooeesceceeestesccseeeeetsesenceeeensneneeeeneunnersesasaen 125 99 Flash-up Windows by Software Bottling Of NY... eee 1S 69 
RARE NS CEAV EE CAC aad i Ee hes eos Pande the nn pastes tn cgetunactapeseaneweenassioetoniorens 250 199 Multi-Halo with Royalties by Media Cybernetics... 300 CALL 
dBC ABase File Manager fOr C.....c.c:.-scicsssssecesssssnensncnsssesecenencneseoreressscssecasess 250 199 On-line Help from Opt-Tech Data Processing ...........:::ees 149 119 
SEES eC EGOS 56a caghisy espn sn diva paneer ewesenionncokensnntaneeanponteetageies 500 395 Screen Sculptor by Software Bottling Of NY... 125 95 
LMK Make Facility............c:cccccescessesseseeeeceeeseresenesesseneacesceassansnenasenannenantaneneanns 195 149 Turbo EXTENDER by TurboPower Sore. ee 85 69 
LSE Screen EMItOF .....e-sseesseesssunseeessenceesstnneeecetvanceesennnnnessnnnenessanatanessnentt 125 99 Turbo Professional by Sunny Hill Software ..........:ceeeeen 70 49 
RPG Il Compiler No Fic yGHH 25 oo: acinr ect pares ean cts eterna 750 595 TurboPower Utilities by TurboPower Software «0... 95 84 
SecretDisk File SECUTity ............:ccececsesesssssssseenesecssesensenesesteeeseesessasenessnsens 60 49 TurboRef by Gracon Services ............sccssseccsssesesssceneeersnnttessnneteesanenees 50 45 
an Sani TAN ANIIRETTECBTIGIIS i cscca inodsvendanecasencncesctneqsthons eovgup-teaiicteass 120 95 TurboWINDOW by MetaGrapnics ..............ccceeecceeeeeeeeeeteeetteees 80 69 
ext Mgmt Utilities (GREP,.DIFF.ED.WC,Extract, Build)......--..--..- 120 95 : een 
TopView Toolbasket Function Library «1.2... eeseeeeieeeieenieentee 250 199 Theas wae oes training tapes 
g tapes are from The Information Factory and are an 
with Source Code. Peg nt geet eas ae oa otas Socata con wengae a ac atedave WeaneRe sogabeg eneeeyeaee eran 500 395 excellent alternative to expensive classroom training. Specify Beta of VHS. 
2-80 Cc Cross Compiler RSS .Gupbosngactaa tne Desaidasiesteatvedetecoyeanvevacsnans rege paeaavase ke 500 395 Price includes one student manual. 
with Library Source Code Lei eg vitennMhidweph inact a acis Salen ae 1000 789 Basic Telecommunications ....................cccceeeceeceeeeseeseteseeeeeeeeenes New 350 309 
microsoft products Gonmuter Llpracy 233. sac it arte eee irentieenenese 400 349 
Microsoft BASIC Interpreter for XOMIX oo... ceceecseeseeseesteeneeneenennen 350 279 Seocecal sae NCE COE ICG cas ican aie esi etc geese enc entnnsieteee 350 309 
Ret PERMIT once Lan ns5 oper dotensnenwsotenbasannndivecoachenbtacmnong 395 259 Programmer's Introduction to Con... cece ees eeeeeeeeeeeneeeneetnetens 500 449 
Sieroter COIR, COMIC sia cick ccisco sec ccesscsstbdanvopdectaseedteschapinnecde= 700 495 wendin products 
PI ee oF aso usp cacuguidcedads -aecnanlancoaped leetepnpaubetacannns} eeplerssiege an 995 795 Operating System Toolbox Build your OWN OS... eee 99 84 
Microsoft COBOL Tools with COBOL Source Debugget .............++++ 350 209 PCUNIX Operating SyStem.........::s::cscsessesesseeseeneeseeneeneeneneenteneenseenssnesenenenss 99 84 
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LETTERS 


Listing Three (Listing continued, text begins on page 8.) 


MOVD R6, Rl 

ANDW 7FFH,R1 

ADDW 3FFH,R1 

ROTW -1,R1 

CBITB 15,R1 

SAVE [RO,R1] 
R7,R6 

SQR1 

-4,R7 

~4,R6 

FF 80H, R6 
MOVD 4C1BF828H, R3 
BR1 SQR2 

SQR1 
LSHD 
ROTD 
ANDW 
MOVD 


-3,R7 

-3,R6 

FFOOH, R6 
6A227E65H, R3 


SQR2 
MOVD 
DEID 
LSHD 
ADDD 


R7,R5 
R3,R4 
+1, R3 
RS,R3 


MOVD 
DEID 
LSHD 
ADDD 


R7,R5 
R3, R4 
=3R3 
R5, R3 


MOVD 
DEID 
LSHD 
ADDD 


R7,R5 
R3, R4 
“3,53 
R5, R3 


MOVD 
MOVD 


R6,R4 
R7,R5 


DEID 
MOVD 


R3,R4 
R2, RO 
MEID RS, RO 
NEGD RO, RO 
SUBCD R1,R4 
MOVD R4, Rl 
BCC1 DIV1 
DIV2 
ADDQD -1,R5 
ADDD R2, RO 
ADDCD R3,R1 
BCC DIV2 
DIV1 
DEID 
MOVD 


R3, RO 
R1,R4 


MOVB 
LSHD 
ROTD 


R3, R2 
-1,R3 
-1,R2 


ADDD R4,R2 
ADDCD R5,R3 


RESTORE [RO,R1] 
ADDD R2,R2 
ADDCD R3,R3 
BCCl1 SQR4 
MOVB R3,R2 
LSHD -1,R3 
ROTD -1,R2 
ADDOW 1,R1 
BR1 SQRS 
SOQR4 

CBITB 31,R3 
BFS1 SQR5 
ADDD R2,R2 
ADDCD R3,R3 
ADDOW -1,R1 
CBITB 31,R3 
SQR5 

ANDW F8OOH, R2 
ORW R1, R2 


MOVD 4(RO),R1 
MOVD R2,0(R1) 
MOVD R3,4 (R1) 
JUMP 8 (RO) 


END 


7get exponent 

7clean exponent 

7 fix offset 

:div exp by 2 

;test & clear wrap-around bit, 1l=odd O=even 
;Save exp & ret addr 

*prepare for right shift 

7jump if exponent was odd 

shift -3 for safety & -1 to get halfx 


; remove non-mantissa bits 
7y seed = 1.189.../2 


sshift -3 for safety, -1 to get halfx, +1 because 
* orig exp was odd 

*remove non-mantissa bits 

ry seed = 1.68.../2 


7We will do 3 iterations with 32-bit precision 
sget halfx into RS 

#RS = halfx/yO (the junk in R4 doesn't matter) 
7R3 = yO/2 

7R3 = new yO 


7second iteration 


sthird iteration 


Now the final iteration at full precision 
sget R4R5 = halfx from R6R7 


snow divide halfx (R4R5) by y (R2R3) 


7R4RS now = halfx / y 


7R2R3 = y/2 


*7R2R3 = y/2 + halfx/y 
74th iteration complete 


;get exponent €& ret. addr 
sshift mantissa back where it belongs 


;there should almost never be a carry 


zundo that last shift & zero the MSbit 


adjust exponent 
7 done 


stest & clear MSbit (make it a + sign) 
zit would virtually always be a 1 
zif not, shift left again 


sadjust exponent 
smake it + 


7clean the mantissa 
7append the exponent 


;get addr of destination variable 
;Sstore result in dest. variable 


;return to caller 


End Listings 


Dr. Dobb’s Journal, July 1986 










SORT/MERGE With 
RECORD SELECTION 
& OUTPUT 
REFORMATTING 
with OPT-TECH SORT 
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mance with OPT-TECH SORT. OPT- 

— TECH includes: 

* CALLable and Standalone use 

All major languages 

Variable and fixed length 

Up to 10 sort/select fields 

Autoselect of RAM or disk 

Options: dBASE, BTrieve files 

1 to 10 files input 

No software max for 

# records 

Full memory utilization 

All common field types 

Bypass headers, limit sort 

Inplace sort option 

Output = Record or keys 

Try what you're using on an XT: 1,000 

128 byte records, 10 byte key in 33 


seconds. MSDOS $135 


Cross Compiler with 
COMPLETE SOURCE: QCX 


Expand your audience with a cross-com- 
piler and get full source code to the com- 


piler and library. QCX can help you learn 


~ techniques for compiler design and parsing 
while providing you with a low-cost de- 
velopment tool. Hosted on MSDOS, Unix 
(or Xenix), or Vax VMS and generates 

~ ROMable Z80 assembly code. Cross as- 


_ semblers and linkers are separately 


available. 

QCX supports long integers and single- 
precision floating point, with only minor 
restrictions to K&R standard. Arguments 
to functions are reversed, which allows 
any function to have a variable number 
of arguments. 

AO, an optional host optimizer, is avail- 
able for only $125. Buy QCX for $465 
and we'll include AO FREE! 

Consider the native MSDOS compiler 
for $125. 


MSDOS $465 


C DYNAMO! 
WINDOWING: Full C Source, 
No Royalties 
POWER WINDOWS and C 
FUNCTION LIBRARY 


Power Windows covers all the bases: over- 
lays, borders, 1-2-3 style or pop-up menus/ 
help windows, zap instantly on/off screen, 
status lines, horizontal/vertical scrolling, 
color control or highlighting, word-wrap, 
files to windows, keyboard to windows. 
Powerful, easy to use, integrated error 
messages, thorough documentation. Sup- 
ports IBM monochrome or color. 

C Function Library - includes 325 fun- 
damental functions with readable source 
and thorough documentation. 

No matter what you have, you need these. 
Best value available. Highly recom- 
mended! 


Power Windows MSDOS 
Only $119 

C Function Library MSDOS. 
Only $119 


Even for Small Files: 
Convenient, Fast Access 
CBTREE — Only $99 


Why spend time writing file management 
code when you can use consistent, flexible, 
documented, professional functions? Even 
multiuser record locking and variable- 
length records are supported. 

Add, delete, and update without needing 
to reindex. Store keys and record locations 
in B + trees. 

You can access any record or group of 
records by the value of a user specific 
key. Search your files from any point, 
forward or backward. 

Full, balanced B-tree support includes 
use of multiple keys, unlimited number 
and length of keys. 

Use this powerful ISAM, even if you've 
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risk nothing with our 31 day risk-free trial on any product in this ad. 
Yours for more productive programming, 


NEW HOURS 
8:30 AM - 8:00 PM EST. 


You want the best development software for your needs. These products will help you: 
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Bruce W. Lynch, President 


“You've got everything I’ve heard of, and much I 
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Listing One (Text begins on page 18.) 


NGS FO RTH ial heal i el Pa eee ah 


#include <stdio.h> 





/* TREE.C: Various binary tree routines: 





1 
2 
A FAST FORTH, 3 
OPTIMIZED FOR THE IBM 5 * (C) 1986, Allen I. Holub. All rights reserved. 
PERSONAL COMPUTER AND : 
MS-DOS COMPATIBLES. : 


typedef struct n 
{ 


10 struct n *left; 
11 struct n_ *right; 


STANDARD FEATURES 12 char *key; 
INCLUDE: 14 LER; 


e79 STANDARD 16 char Ma 


D; 
17 extern char *makebitmap(); 


eDIRECT I/O ACCESS Be Ne gS ee 


20 * These defines are used by the lr trav() routine: 

@®FULL ACCESS TO MS-DOS = ee 

FILES AND FUNCTIONS 23 #define mark (p) ( *( (p)->key ) |= 0x80 ) 
24 #define marked (p) ( *( (p)->key ) & 0x80 ) 


@ENVIRONMENT SAVE 25 #define unmark (p) ( *( (p)->key ) &= ~0x80 ) 
& LOAD 


26 #define visit (root) printf("%s ", root—->key ); 


28 /*#————-————— gs 


e@MULTI-SEGMENTED FOR 29 
LARGE APPLICATIONS 30 tree( key, rootp ) 


31 char *key; 
32 LEAF **rootp; /* POINTER to (not the contents of) the root af 


@EXTENDED ADDRESSING 33 { 


34 /* Non-recursive binary tree search and insert function. If key 
35 * is in the tree a message to that effect is printed, otherwise 
e@MEMORY ALLOCATION 36 * a node containing key is inserted into the tree at the 
CONF IGURABLE ON-LINE sf * proper place. 
¥7 


@AUTO LOAD SCREEN BOOT = 


40 LEAF *root = *rootyp } 
41 LEAF **insert here = rootp ; 


@LINE & SCREEN EDITORS = LEAF *malloc (J; 
@DECOMPILER AND a chitet tae 
DEBUGGING AIDS 46 { 


47 if( (rel = strcmp(key, root->key)) = 0 ) 
{ 


e8088 ASSEMBLER ae 


49 printf ("key <%s> in tree\n", key ); 
50 return; 


@GRAPHICS & SOUND 51 


52 else 


53 { 
eNGS ENHANCEMENTS 34 insert_here = (rel < 0) ? &root->left : &root->right ; 


55 root = *insert here ; 


@DETAILED MANUAL 56 } 


a? } 


58 
@INEXPENSIVE UPGRADES 39 if( *insert_here = root = malloc(sizeof (LEAF) ) ) 
{ 
@eNGS USER NEWSLETTER 61 root->right = root->left = NULL; 


62 root->key key; 


A COMPLETE FORTH oe ee 


65 printf ("Out of memory.\n"); 


DEVELOPMENT SYSTEM. 66 } 
Ca 
ha esis int aa tbe eS Lag SSS 
69 
_PRICES START AT $70 70 sinorder( root ) 
71 LEAF *root; 
Wet 
NEW@HP=-150 & HP-110 73 /* A simple recursive in-order traversal, each node is printed 


* ++ 8 ; ; : 
VERSIONS AVAILABLE 74 with as many tabs to it's left as it is deep in the tree. 


75 * (if a node is at depth 4 then 4 tabs are printed) . 


76 ¥/ 


78 static int depth = -1; 
79 register int i? 





81 if( root } 
{ 


83 depth++; 


NEXT GENERATION SYSTEMS | | iebvaor F tock ieee 


" 86 for(i = depth; --i >= 0 ; putchar('\t') ) 


SANTA CLARA, CA. 95055 88 : 
(408) 241-5909 Se printf( "%s\n", root->key ); 


inorder( root->right ); 
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$1 

92 depth--; 
93 } 

94 } 

95 


Q6 /*#-------------------------------------------------------------- === 


97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
17 
118 
119 
120 inorder( root, amleft ) 
121 LEAF *root; 
122 int amleft; 
123 { 
124 
125 static int depth = -1; 
126 int 7 
127 
128 if( root ) 
129 ‘ 
130 ++depth; 
131 
132 if ( root->right )} 
133 inorder ( root->right, 0 ); 
134 else 
135 setbit ( depth+1, Map, 1 ); 
136 
137 for(i = 1; i <= depth ; i++ ) 
138 { 
139 printf( i = depth a 
140 testbit (i,Map) ? " 
141 ” 
142 } 
143 
144 printf( “ts%s\n", root->key, 


inorder (}: 


so that a mirror image of the tree won't be printed 
being printed first). 


| is associated with this depth in the bitmap: 

1 2 3 

| | | 
V V | 

Vv 

+—--]---+ 

| | +2 

| +---2---+ 


| +———2 
+---1---+ 
+——-2 


+ + te tt ee Ot OF OO OO OO OO OF 


a 


/* Root of current subtree 
/* Root is a left decendant of 


Does an recursive in-order traversal of a binary tree, printing 
it in graphic form (showing the various pointers). Note that 
the traverse order is reversed (go right, print root, go left) 


(normal 


traversal would result in the leftmost node of the left subtree 


0---+ Node number = depth in tree. 


af 
the parent */ 


/* Current depth in the tree */ 


145 root->left || root->right ? “—--+" : "" ); 


146 

147 setbit ( depth, Map, amleft ? 0:1); 
148 

149 if ({ root->left ) 

150 inorder ( root->left, 1 ); 
151 else 

152 setbit ( depth+1, Map, 0 ); 
153 

154 —-depth; 

155 } 

156 } 

157 

158 

159 


160 /*t----------------------------------- = --- === 


161 

162 

163 pline( depth ) 

164 { 

165 int 4 

166 for(i = 0; i < depth-1 ; it+ ) 

167 printf( testbit (i,Map) ? "| ee, 
168 } 

169 


170 [te n-ne ge eee ere ec errr rrr 


171 

172 preorder( root, amright ) 

173 LEAF *root; 

174 { 

175 /* Does a recursive pre-order traversal of a bi 


gen llamar */ 


nary tree printing 


176 * the tree in graphic form. Though this routine is interesting, 
177 * it is more useful when adapted to multi-way tree traversal 
178 * for use in such aplications a printing directory trees. 


179 “7 

180 

181 static int 
182 

183 if( root ) 
184 { 

185 pline( ++depth }; 

186 printf( “%sts\n", depth ? “t------- a 
187 

188 if ( root->right }) 


depth = -1; 
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(continued on next page) 
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Unix-like Tools 


ATARI ST and IBM PC 


Unix-like Shell 
MICRO C-Shell $49.95 
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substitution, C shell scripts (if-then-else, foreach, while, 
break, continue, goto). Many Unix-like utilities: cat, 
chmod, cmp, cp, date, diff, grep, Is, lpr, mkdir, more, 
mv, pr, printenv, rm, rmdir, sed, setenv, tail, tee, we. 


More Unix-like Tools 


MICRO C-Tools $24.95 
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MICRO Make $34.95 


Unix make syntax and options. Works with any com- 
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Atari ST 


Real-Time Executive 


MICRO RTX $69.95 


Real-time multitasking operating system kernel for the 
Atari ST. 
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Stop Thinking- 
Start Programming Today! 


SPECIAL INTRODUCTORY OFFER! 
C’ Prime, Personal Computing and C, 


Plus Apprentice C. 
A $169 value only 


$99 





NEW FROM MANX AZTEC! 
C’ Prime 3 $79 


Never has C been easier to learn. 
Manx Aztec is now offering a com- 
plete C system called C’ Prime at an 
exceptionally low price. This powerful 
system includes a Compiler, Linker, 
Assembler, Editor, Libraries and Ob- 
ject Librarian. C PRIME supports a 
host of third-party software. 


C Apprentice $4995 $39.95 


Learn C quickly with this complete, 
easy-to-use C language interpreter. 
Apprentice C includes a complete one- 
Step compiler that executes with lightn- 
ing speed, an editor, and a 

run-time system. 


NEW FROM ASHTON-TATE! 
Personal Computing and C 


A detailed, easy-to-understand guide to 
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Ashton-Tate for use with the new 
Aztec C’ Prime. Includes chapters on 
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features, plus a complete money man- 
agement demonstration program. 
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/CCWAR 
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is a registered TM of Bell Laboratones. dBase TM Aston Tate. Inc. MANX AZTEC. C PRIME. 
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C CHEST 


Listing One (Listing continued, text begins on page 18.) 


189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
242 
213 
214 
215 
216 
out 
218 
219 
220 
221 
222 
223 
224 
225 
226 
oar 
228 
229 
230 
231 
232 
2335 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
£04 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 


275 
276 
277 
278 
279 


setbit ( depth, Map, 1 ); 


preorder( root->left, 0); 
setbit (depth, Map, 0); 
preorder ( root->right, 1 ); 


if( amright && ! (root->right || root->left) ) 
{ 

pline( depth ); 

printf ("\n"); 
} 


dept h--; 


JB cence a lair ip aca eh i gpg a acts gb i hettavintide naelse, 
* lr trav() (below) does a non-recursive link-reversal traversal of a 

* binary tree. The algorithm used is: 

* 


aaa ee 


do forever 


if( marked( pres ) ) 
clear mark 
else 
while( there's a left child ) 
preorder visit 
go left 


inorder & preorder visit 
postorder visit 


if( no previous node ) 
break 


if ( marked( prev ) ) 
go up from a right child 
else 
go up from a left child 
inorder visit 
set mark 
go right 


“Go" means to decend one node in the tree, reversing the pointer 
to that node so that it points back up where we came from. 

If we "go left" then we reverse the the left pointer; 

if we "go right" then right pointer is reversed. "Go up" means 
return to the previous node and make the pointer point back to 
its original location. A node is marked after we have 
traversed its left sub-tree. The mark is cleared after we've 
traversed both the left and right sub-trees. The high bit of 
the “key" field is used to mark the node, you could also add 
another field to the structure if you have a numeric key. Only 
one bit is needed for the mark. 


lr trav( pres ) 


LEAF 


{ 


*pres; 
LEAF *prev = NULL, *next; 


while( 1 ) 
{ 
if( marked(pres) ) 
unmark( pres ); 
else 
{ 
while( next = pres->left ) 
{ 


/* preorder visit */ 


/* goes here af 

pres->left = prev; /* go left =f 
prev = pres; 

pres = next; 


} 


visit ( pres ); /* inorder & pre- */ 


/* order visit ef. 
} 
/* postorder visit goes here */ 
if( !prev ) 
break; 
if( marked(prev) ) 
{ 
next = prev->right; /* go up froma */ 
prev->right = pres; /* right child */ 
pres = prev; 
prev = Next? 
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280 } 





281 else 
282 { 
283 next = prev->left; /* go up froma */ 
284 prev->left = pres; 7*-1eft child -)*/ i “i 
285 pres = prev; TG ae, “ . 
286 prev = next; gS i Se To hell with 
287 74 oe “\s \, 4. 
288 visit ( pres ); /* inorder visit */ oe me uler . 
289 : literacy. It's 
290 mark ( pres ); /* mark the node */ <— b 
291 if( next = pres->right ) /* go right */ Butler Lampson (4 solutely 
292 { (Alto PC) * 4 
293 pres->right = prev; ridiculous. 
294 prev = pres} Study mathematics. Learn 
295 pres = next; . - 
296 to think. Read. Write. 
297 } 
298 } 
299 
300 printf ("\n"); 
301 } Programmers at Work 
303 /*---------------------------------------------------------------------- x / Interviews with 19 of 
304 es Today's Top Programmers 
ma ’ 
ace aime oe $14.95 (soft) $19.95 (hard) 
307 { Available wherever fine books are sold. 
308 static LEAF *root = NULL ; 
309 char buf [128]; 
any Map = makebitmap( 128 }; Circle no. 126 on reader service card. 
312 
313 #ifdef MODE1 PROMPT DELIVERY!!! 
314 for( printf("2 "); gets (buf); printf("? ") ) ICs PROW SHIPPING LIVEF vin 
315 { QUANTITY ONE PRICES SHOWN 
rt Soa éroot ); ‘ Mielke ieee ons) R= ¥ 
318 inorder ( root , 0 ); te DYNAMIC RAM — 
319 preorder( root , 0 ); vem 256K 64Kx4 150 ns mir 
320 } eee 256K 256Kx1 100 ns ae 
321 #endif ee 256K 256Kx1 120 ns age 
322 em 256K 256Kx1 150 ns ee 
323 while( --arge > 0 ) SiMe 428K =—Ss 128Kx1 150 ns aes 
324 tree( *++argv, &root )}; i= Bevis 64Kx1 150ns 
325 ope EPROM 8 
= ; inorder ( root , 0 ); Be 27512 64Kx8 250 ns eas 
reer rae 270256 = 32Kx8 250 ns Ra 
End Listing Ome | BERG 27256 = s2«x8 250ns 
Wi 9 27128 16Kx8 250 ns 52) 
aa 27C64 8Kx8 200 ns res 
sat ae 2764 8kx8 250 ns ar 
Listing Two a STATIC RAM a 
ERM 43256L-12 32kx8 120 ns Ris 
Listing 2 -- bitmap.c ca 6264LP-15 8kx8 150 ns © 


6116LP-3 2kx8 150ns 


1. /* BITMAP .C makebitmap, setbit, testbit: bit map manipulation 

2 : routines. MasterCard/VISA or UPS CASH COD 

a Factory New, Prime Parts uPoo 
= Copyright (c) 1985,1986 Allen I. Holub, all rights reserved. MICROPROCESSOR UNLIMITED, INC. 
wen 24,000 S. Peoria Ave., (918) 967-4961 
G-=* These routines originally appeared in the June, 1985, C Chest (DDJ 

ara #104). They are reproduced here in a stripped-down version. Prices shown above are for May 26, 1986 
8 * Please see that column for more information about how they work. ease oe usw suppl a dorand and our change costs Shppng & rcurance extra, Cash 
2 a Nt ce sdoral Express Steers Ar @ $8.00, or Prony One @ S100. 
11 extern char *calloc ( unsigned, unsigned ); 

12 

13 typedef char BITMAP; 

14 

YS [Bm a */ 

16 


17 BITMAP *makebitmap( size ) 
18 unsigned size; 


19 { 

20 /* Make a bit map for “size" bits. xf 

21 /* Return a pointer to the map or NULL if we couldn't make it. */ , 

22 ate i \ “ 

23 unsigned *map, numbytes; = The rate of 
24 = - é ‘i - 
25 numbytes = (size >> 3) + ((size & 0x07) ? £20} £ BSS ES ro A Mee Ls 
26 ‘ 

27 if( map = (unsigned *) calloc( numbytes + sizeof (unsigned) ,1 ) )} Jonathan Sachs ratner slow. 
28 ‘map = size; (Lotus 1-2-3) There are 

a l lt id 

30 return (BITMAP *) map; only a few really new ideas 
31 } . 

= every decade. 

BQ [mm rn */ 

34 

35 setbit( c, map, val ) 

36 unsigned c, val; 

Si char Sheps Programmers at Work 
= /* Set bit c in the map to val. * / Interviews with 19 of vue nibs 
40 /* If c> map size, 0 is returned, else 1 is returned. ef Todays Top Programmers 


(continued on next page) $14.95 (soft) $19.95 (hard) 


Available wherever fine books are sold. 
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Listing Two (Listing continued, text begins on page 18.) 


41 

42 if( c >= * (unsigned *)map ) /* if c >= map size */ 

43 return 0; 

44 

45 map += sizeof (unsigned) ; /* Skip past size */ 
46 

47 if( val ) map[c >> 3] |= 1. <<:-{c & OxO7). = 

48 else map[c >> 3] &= ~(1 << (c & Ox07)) ; 

49 

50 return({ 1°)3 

os 

52 

93 /* —--—-----------——-- ——-- - —— -- + + */ 
54 

95 testbit( c, map ) 

56 unsigned c; 

57 char *map; 

58 { 

59 /* Return 1 if the bit corresponding to c in map is set. es 
60 L* -@ 2210 48 pot: ef 
61 

62 if( c >= *(unsigned *)map ) 

63 return 0; 

64 

65 map += sizeof (unsigned) ; 

66 

67 return( map[ c>>3] & (1 << (c & 0x07)) ); 

68 } 


THE CLOSEST ae ah) see poe AVAILABLE ns YOUR PC 


RICH SET OF DATA TYPES 
Bignums, for high precision arithmetic 
8087 support, for fast floating point 
Arrays, for multidimensional data 
Streams, for device-independent i/o 
Packages, for partitioning large systems 
OS stnis bit-arrays 


FULL SET OF CONTROL PRIMITIVES 
flet, labels, macrolet, for local functions 
if, when, unless, case, cond, for conditionals 
Keyword parameters, for flexibility 
Multiple-valued functions, for clarity 
Flavors, for object-oriented programming 

: Stacks, for coroutining 

_ Madmalos for ssa 


| LARGE COMPLEMENT OF FUNCTIONS | 


Mappers, for functional programming 

format, for output control 

sort, for user-specified predicates 

Transcendental floating point functions 
| String handling functions 

Over 400 functions altogether 
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~ | APPLICATION SUPPORT 


Save and restore full environments 
User-specified initializations 


Sens fanguage interface 


HARDWARE REQUIREMENTS 
8088 or 8086 CPU, MSDOS Operating System 
sk RAM 0 or r more 


: a <7 


9'%’’ diskettes 
and manual $300.00 
Foreign orders add $30.00 for airmail. 


| US. Shipping included for prepaid orders. 


fa Integral Quality 
P.O. Box 31970 


Seattle, Washington 98103 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 





: Customizable window system 


| DEBUGGING SUPPORT 


End Listings 


EXTENDABILITY 

defstruct, to add data types 

Macros, to add control constructs 

Read macros, to extend the input syntax 
Extendable arithmetic system 


step, for single-stepping 
trace, for monitoring 
break, for probing 
inspect, for exploring 
Flexible error recovery 
susyas ye preity: printer 


MSDOS INTERFACE 
Random access files 
Hierarchical directory access 
MSDOS calls 


DOCUMENTATION 

On-line documentation of functions 
apropos 

300-page indexed reference manual 
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NEW! DDJ’S 
JULY FORTH 
ISSUE 

SPECIAL! 


Is Forth the language for 
you? 

It is if you’re an advanced 
user, a systems designer or 
an applications 
programmer looking for 
flexibility, power, speed and 
minimal program 
development time. 


Forth is also the language 
for you if you’re a beginner 
who wants to learn more 
about your computer than 
you can with a conventional 
“teaching” language. 
Whatever your level of 
expertise, Forth may be for 
you simply because it is a 
truly interesting language. 


Now, Dr. Dobb’s Journal 
of Software Tools, presents 
Dr. Dobb’s Toolbook of 
Forth. 


This comprehensive 
collection of useful Forth 
programs and tutorials 
contains expanded and 
revised versions of DDJ’s 
best Forth articles, along 
with new Forth material. In 
addition to the practical 
code and tutorials, you'll 
glean important insights 
about the potential of this 
increasingly popular 
language from the many in- 
depth discussion of 
advanced Forth topics. 


BABES AES 
SEGRE eeege 
HARP RAAAeAe eae 









You'll find 
sections on: 


Forth—the Language, 
including “The Forth 
Philosophy,” Teaching 
Forth as a First Language” 
and Forth-83 and 
Vocabularies” 


Forth Programs, including 
“GO in Forth,” “Elements 
of a Forth Data-Base 
Design,” “The Forth Sort,” 
“SEND & RECYV,” 
“Interface for a Mouse,” 
“Relocating Loader in 
Forth,” “Forth 
Decompiler,” ““Screen- 
Oriented Editor Re- 
Visited,” “Evolution of a 
Video Editor,” ““H-19 
Screen Editor” and ““The 
Conference Tree” 














Mathematics in FORTH 
including “Series 
Expansion in Forth,” 
“FORTH Floating-Point 
Package,” “Signed Integer 
Division” 

Modifications /Extensions, 
including “A Proposal for 
Strings in Forth,” “Non- 
Deterministic Control 
Words,” “Some Forth 
Coding Standards,” 
“Towards a More Writable 
Forth Syntax” 


Implementing FORTH, 
including “Forth and the 
Motorola 68000,” “A 
68000 Forth Assembler,” 
‘““A Forth Assembler for the 
6502,” “Z8000 Forth” 


You'll also find Appendices 
that will help you convert 
fig-Forth to Forth-83, and 
tell you how to stay up-to- 
date on the latest 
developments and 
refinements of this popular 
language. 


Announcing 


Dr. Dobb’s 
Toolbook 
of Forth 






Dr.Dobb's Catalog 








The screens in the book are 
also available on disk as 
Ascii files. Receive Dr. 
Dobb’s Toolbook of Forth, 
along with the software on 
disk, together for only 
$39.95. 


Item #030 Dr. Dobb’s 
Toolbook of Forth $22.95 


Item #031 Toolbook of 
Forth with disk $39.95 


Please specify MS/PC 
DOS, Apple II, Macintosh, 
or CP/M. For CP/M 
disks, specify Osborne or 

8” SS/SD. 


Please allow 6 weeks for 
delivery of the Toolbook of 
Forth. 


To Order: 


To order any of Dr. Dobb's 
products, return the order 
form at the end of this 
catalog, or 


CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 


For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 


fh 






M&T BOOKS 
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Dr. Dobbs 
Bound Volumes 





Programs by the Pound 
be Modula-2, and taught Forth : and Dr. Dobb’s investigated: 
Announcing: to talk to a 68000, to MS DOS, ee Sete RTO te esth 1810 RIM 
Dr. Dobb’s and to the people of China. tem #15 the Alpha Micro, MITS 
Bound Volume 9 We examined anew language | The working notes ofa Basic, Poly Basic, and 


Over 1000 pages of listings 
and text. The entire 1984 edi- 
torial contents of Dr. Dobb’s 
Journal of Software Tools. 


Bound Volume 9: 1984 
Item #020B 


Shaping things to come. In 
1984 new Editor-in-chief 
Mike Swaine brought his 
interests in advanced tech- 
nology to Dr. Dobb’s Journal. 
We presented the concepts 
behind Prolog and published 
an expert system for weather 
prediction. We learned 
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implementation called 
Turbo Pascal and extended 
implementations of C with 
a preprocessor, a library, 
Tony Skjellum’s tricks, and 
Allen Holub’s Grep. We 
published two powerful 





encryption systems, tele- 
communications protocols, 
floating-point benchmark 
results, and an issue devoted 
to the internals of Unix. 
And Ray Duncan, Bob 
Blum, and Dave Cortesi 
were on hand with their 
fascinating columns. 





technological revolution. 
Programmers from Defense 
laboratory systems analysts 
to kitchen-table entre- 
preneurs worked for the 
intrinsic rewards to put 
development software on the 
brand-new invention, the 
microcomputer. Before there 
was an Apple, Dr. Dobb’s 
Journal of Tiny Basic 
Calisthenics and Orthodontia 
(subtitle: Running Light 
without Overbyte) was 
founded to put a program- 
ming language on the 
machines, and became both 
chronicler and instrument 
of the revolution. In this 
first-year volume: Tiny Basic, 
the first word on CP/M, 
notes on building an IMSAT, 
floating-point and timer 
routines. 


Bound Volume 2: 1977 
Item #014 


Running light without over- 
byte. By year two, Dr. Dobb’s 
formula was concocted: 
tough questions and serious 
technical issues handled 
with enthusiasm, wit, and 
scant reverence for the 
accepted answers. Source 
code. Tools for programmers. 
Respect for tight program- 
ming. Dr. Dobb’s Journal 
readers shared insights 

on warping the Intel 8080 
into a computer CPU, and 
Dr. Dobb’s published a 
complete operating system 
for the chip. A motley crop 
of computers and software 
products were popping up, 


Lawrence Livermore Labs 
Basic. Dr. Dobb’s introduced 
Pilot for microcomputers 
and published tips on doing 
string handling, high-speed 
I/O, and turtle graphics in 
limited memory. 


Bound Volume 3: 1978 
Item #015 


The roots of Silicon Valley 
growth. In 1978 Steve 
Wozniak and other pro- 
grammers were publishing in 
Dr. Dobb’s Journal code that 
would help them grow multi- 
million-dollar computer 
companies. The proposed 
S-100 bus standard was 
hashed out in Dr. Dobb’s 
pages. Dr. Dobb’s contributors 
began to speak more in terms 
of technique than of specific 
implementations as the 
industry began to diversify. 
Languages covered in depth 
included SAM/76, Pilot, 
Pascal, and Lisp. 


To Order: 


To order any of Dr. Dobb’s 
products, return the order 
form at the end of this 
catalog, or 


CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 

For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 
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Programs by the Pound 


Bound Volume 4: 1979 
Item #016 


In the midst of the Gold 
Rush. Three years before 
IBM would release its PC, a 
thriving, rough-and-tumble 
personal computer industry 
existed. Fortunes had been 
made and lost, the effective 
power of the machine multi- 
plied a hundredfold. By 
1979 some stability had even 
emerged; one could speak 
of the processors that had 
proven longevity as micro- 
computer CPUs: the 8080, 
the Z80, the 6800, and the 
6502. Dr. Dobb’s Journal 
focused on the best ways to 
use these processors, with 
algorithms, tips, and code 
for 8- to 16-bit conversion, 
pseudo-random number 
generation, micro-to- 
mainframe connections, 
telecommunications, and 
networking. And lots of 
useful code. 


Bound Volume 5: 1980 
Item #017 


The preeminence of CP/M 
and the rise of C. More 

than any other magazine, 
Dr. Dobb’s Journal was 
responsible for the spread 
of CP/M and C on micro- 
computers. Both of those 
movements began in 1980. 
Dr. Dobb’s all-CP/M issue, 
including Gary Kildall’s 
history of CP/M, sold out 
within weeks of publication. 
This was the year of Ron 
Cain’s original Small C com- 
piler, of a CP/M-oriented 

C interpreter, CP/M-to- 
UCSD Pascal file conversion 
techniques, and of a greater 
concern in Dr. Dobb’s with 
software portability. 
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Bound Volume 6: 1981 
Item #018 


The first of Forth. 1981 saw 
Dr. Dobb’s first all-Forth 
issue (now sold out), along 
with an emphasis on CP/M, 
C, telecommunications, and 
new languages. David Cortesi 
began “Dr. Dobb’s Clinic?’ 
one of the magazine’s most 
popular features. Highlights 
included information on 
PCNET, the Conference 
Tree, the Electronic Phone 
Book, Tiny Basic for the 
6809, writing your own 
compiler, and a systems 
programming language. 


Bound Volume 7: 1982 
Item #019 


Legitimacy. By 1982 IBM 
had become a player in the 
personal computer game and 
was changing the rules. New 
microprocessors arrived, 

the first designed specifically 
to serve as personal com- 
puter CPUs. In Dr. Dobb's 
Journal Dave Cortesi pub- 
lished the first serious 
comparison of MS DOS and 
CP/M-86. Dr. Dobb’s started 
two new columns: the CP/M 
Exchange, as a rearguard 
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maneuver to ensure that 
good tools for CP/M pro- 
grammers would continue 
to be developed and circu- 
lated, and the 16-Bit Software 
Toolbox to investigate the 
8088/86 and other new 
microprocessors. We pub- 
lished code for the 68000 
and 78000 processors, and 
looked ahead, in a provoca- 
tive essay, to fifth-generation 
computers. 


Bound Volume 8: 1983 
Item #020 


Power tools. Personal com- 
puters were proving them- 
selves to be true professional 
software development tools 
by 1983, the year in which 
Jim Hendrix completed his 
“canonical” version of 


Small C in Dr. Dobb’s Journal. 


Dr. Dobb’s published more 
68000 and 8088 code, and 
as the memory limitations 
relaxed, the magazine’s 
commitment to tight code 
let it shoehorn impossibly 
large systems into memory. 
Small C was just one of the 
major software products 
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Bound Volumes 


published in their entirety in 
Dr. Dobb’s pages that year; 
there were Ed Ream’s RED 
screen editor and a version 
of the Ada language called 
Augusta. 


Buy the complete set 
and save 15% 


If you buy all nine volumes, 
covering the entire editorial 
content of Dr. Dobb’s Journal 
of Software Tools from the 
first issue in 1976 through 
1984, you pay just $225. 
That’s a 15% discount and 
over $40 off the combined 
individual prices. To order 
the complete set of Bound 
Volumes | through 9, ask 


for item #020C. 

Item #013 $27.75 Vol. 1 
Item #014 $27.75 Vol. 2 
Item #015 = $27.75 Vol. 3 
Item #016 $27.75 Vol. 4 
Item #017 $27.75 Vol.5 
Item #018 $27.75 Vol. 6 
Item #019 $30.75 Vol. 7 
Item #020 $31.75 Vol. 8 
Item #020B $35.75 Vol.9 


All 9 volumes 
Item #020C $225.00 


To Order: 


To order any of Dr. Dobb's 
products, return the order 
form at the end of this 
catalog, or 


CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 


For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 
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A collection of powerful tools 
for C software developers, 
including books, software on 
disk, and reference materials 
from the publisher of Dr. Dobb’s 
Journal of Software Tools 





Dr. Dobbs 
Complete C Toolbox 


From M&T Publishing and 
Brady Communications... 


Dr. Dobb's 
Toolbook of C 
Item #005 


The Toolbook contains over 
700 pages of C material, 
including articles by such 

C experts as Kernighan and 
Ritchie, Cain and Hendrix, 
Skjellum and Holub. The 
level is sophisticated and 
pragmatic, appropriate for 
professional C programmers. 

The most valuable part of 
the Toolbook to many will 
be the hundreds of pages 
of useful C source code, 
including a complete com- 
piler, an assembler, and text- 
processing utilities. The 
accompanying text explains, 
in the programmers’ own 
words, why they did what 
they did. 

Dr. Dobb’s Journal of 
Software Tools introduced a 
generation of personal com- 
puter programmers to the 
C programming language, 
and all the best C articles 
and code published in 
Dr. Dobb's over the years is 
included and updated in the 
Toolbook, including Ron 
Cain’s original Small C 
article and articles from sold- 
out issues. But the Toolbook 
also includes material never 
before published, including 
Jim Hendrix’s complete 
macro assembler in 
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_, Of itself. 


Dr. Dobb’s offers the 
Toolbook in a special hard- 
bound edition for just $29.95. 
You'll find: 

Jim Hendrix’s famous 

Small C Compiler and New 
Library for Small C (both 
also available on disk), 
NEW: Hendrix’s Small Mac: 
An Assembler for Small C 
and Small Tools: Programs 
for Text Processing (both also 
available on disk), 

All of Tony Skjellum’s 

C Programmer’s Notebook 
columns distilled by Tony 
into one thought-provoking 
chapter. 


Also from 
M&T Publishing and 
Brady Communications... 


The Small C 
Handbook 
Item #006 or #006A 


Jim Hendrix’s Small-C 
Handbook is the reference 
book on his Small-C com- 
piler. In addition to describ- 
ing the operation of the 
compiler, the book contains 
complete source listings to 
the compiler and its library 
of arithmetic and logical 
routines. 

A perfect companion 
to the Hendrix Small-C 
compiler offered by Dr. Dobb’s 
on disk, the Handbook even 
tells how to use the compiler 
to generate a new version 





While both the Handbook 
and the Toolbook provide 
documentation for the 
Small-C compiler, the 
Handbook contains a more 
detailed discussion and is 
available with an addendum 
for the MS/PC DOS version. 

The Handbook, Item #006, 
is just $17.95. Jim Hendrix 
has ported the compiler to 
the MS/PC DOS environ- 
ment since the Handbook 
was printed, and the Hand- 
book plus his MS/PC DOS 
Handbook Addendum, Item 
#006A, is $22.95. 






Dr. Dobb's C 
Software Tools on Disk 


To complement the Toolbook, 
Dr. Dobb’s also offers the 
following programs on disk. 
Full C source code and 
documentation is included. 
Except where indicated, both 
CP/M and MS/PC DOS 
versions are available. 


Small-C Compiler 
Item #007 


Jim Hendrix’s Small-C 
Compiler is the most popular 
piece of software ever pub- 
lished in Dr. Dobb’s 10-year 
history. Like a home-study 
course in compiler design, 
the Small-C Compiler and 
Small-C Handbook provide 
everything you need but the 
computer for learning how 
compilers are constructed, 
and for learning C at its most 
fundamental level. 


While both the Handbook 
and the Toolbook provide 
documentation for the 
Small-C compiler, the 
Handbook contains a more 
detailed discussion and is 
available with an addendum 
for the MS/PC DOS version. 
The MS/PC DOS Small-C 
Handbook Addendum is 
recommended in addition to 
the Handbook for MS DOS 
or PC DOS users. 

The Small-C Compiler is 
available for $19.95 in either 
the CP/M or the MS/PC 
DOS version. 


To Order: 


To order any of Dr. Dobb’s 
products, return the order 
form at the end of this 
catalog, or 


CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 


For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 
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Dr. Dobb's 
Complete C Toolbox 






Small-Mac: An 
Assembler for Small-C 
Item #01I2A 


Small-Mac is an assembler 
designed to stress simplicity, 
portability, adaptability, and 
educational value. The 
package features a simplified 
macro facility, C language 
expression operators, object 
file visibility, descriptive error 
messages, and an externally- 
defined machine instruction 
table. You get the macro 
assembler, linkage editor, 
load-and-go loader, library 
manager, CPU configuration 
utility, and a utility to dump 
relocatable files. 

Small-Mac is available 
with documentation for 
$29.95. For CP/M systems 
only. 


Small-Tools: Programs 
for Text Processing 
Item #010A 

A package of programs per- 
forming specific, modular 
operations on text files, 
including: editing; formatting; 
sorting; merging; listing; 
printing; searching; changing; 
transliterating; copying; 
concatenating; encrypting 
and decrypting; replacing 
spaces with tabs and tabs 
with spaces; counting char- 
acters, words, or lines; and 
selecting printer fonts. 
Supplied in source code 
form so you can select and 
adapt these tools to your 
own purposes. 


Small-Tools is available 
with documentation for 
$29.95. For CP/M or MS/PC 
DOS systems. 


Special Packages — 
20% Off 

Now for almost 20% off the 
combined individual product 
prices, you can order a 
complete set of Dr. Dobb's 

C programming tools for 
your CP/M or MS/PC DOS 
system. 


C Package for CP/M 
Item #005A 


Ordered individually, these 
items would cost about $120. 
If you order the CP/M C 
package, you’ll get Dr. Dobb's 
Toolbook, the Small-C 
Handbook, the Small-C 
Compiler on disk, the Small- 
Mac assembler on disk with 
documentation in the Small- 
Mac Manual, the Small-Tools 
text-processing programs 

on disk with documentation 
in the Small-Tools Manual, 
all for just $99.95. 


C Package for 


MS/PC DOS 
Item #005B 


These items would cost ga — 


over $100 if purchased 
individually. 
If you order the 









MS/PC DOS C package, 
you'll get Dr. Dobb’s Tool- 
book, the Small-C Handbook 
with the MS/PC DOS 
Addendum, the Small-C 
Compiler on disk, the Small- 
Tools text-processing 
programs on disk with 
documentation in the Small- 
Tools Manual, all for just 
$82.95. 


Dr. Dobb's Sourcebook: 


A Reference Guide to 
the C Programming 
Language 

Item #004 

Products and services for 

C programmers are appear- 

ing at so rapid a rate that it’s 

all but impossible to keep 
up with them. Dr. Dobbs 
presents this handy guide to 
the who, what, when, where, 
and why of C. A compre- 
hensive reference manual to 
new information, products, 
and services, the Sourcebook 
contains: 

¢ A bibliography of over 300 
articles and books on the 
C language; 

e A descriptive list of prod- 
ucts for C programmers: 
compilers, editors, inter- 
preters, and utilities; 

e A list of C-related services: 
classes, seminars, and 
on-line services. 

The Sourcebook is just $7.95. 


Dr. Dobb’s Sourcebook: A 
Reference Guide to the 

C Programming Language 
Item #004 $ 7.95 
Dr. Dobb’s Toolbook for C 
Item #005 $29.95 
The Small-C Handbook 
Item #006 $17.95 
The Small-C Handbook and 


MS/PC-DOS Addendum 
Item #006A $22.95 


Small-C Compiler disk 
Item #007 $19.95 
Small Tools: Programs for 


Text Processing disk 
Item #010A $29.95 


Small Mac: An Assembler 
for Small-C disk (For CP/M 


only.) 

Item #012A $29.95 
CP/M C Package 

Item #005A $99.95 
MS/PC DOS C Package 
Item #005B $82.95 


For CP/M disks, please 
specify one of the following 
formats: Apple, Osborne, 
Kaypro, Zenith Z-100 DS/ 
DD, 8” SS/SD. 


To Order: 


To order any of Dr. Dobb's 
products, return the order 
form at the end of this 
catalog, or 


CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 


For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366- a EXT, 216 
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Utility Package for MS-DOS 


Only $29.95 each! 
Both for only $50 — 
save over 15%! 


Includes complete 
source code and 
documentation. 


A UNIX-like Shell 

for MS-DOS and 

A UNIX-like Utility 
Package for MS-DOS 


by Dr. Dobb’s C-Chest 
columnist, ALLEN HOLUB 


The Shell 


An MS-DOS implementation 
of the most often used parts 
of the UNIX C shell. This 
package includes an exe- 
cutable version of the shell, 
along with complete C source 
code and full documentation. 
Supported features are: 
Editing Command line 
editing with the cursors is 
supported. The line is visible 
as you edit it. 

Aliases Can be used 

to change the names of 
commands or as very fast 
memory resident batch files. 
History The ability to 
execute a previous com- 
mand again. The command 
can be edited before being 
executed. 

Shell Variables Macros 

that can be used on the 
command line. 

Nested batch files A batch 
file can call another batch 
file like a subroutine. Control 
is passed to the second file 
and then back to the first 
one when the second file is 
finished. DOS doesn’t have 
this capability. 
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used as a directory separator, 
minus (—) as a switch desig- 
nator. A 2048 byte command 
line is supported. Command 
line wild card expansion. 
Multiple commands on 

a line. 

The shell also supports 
redirection of standard 
input, standard output, and 
standard error. 


This version corrects 
several bugs found in the 
original version printed in 
Dr. Dobb’s Journal, 
December 1985 through 
March 1986 issues. It runs 
on IBM-PC’s and 
compatibles. 


Add additional features to 
the Shell with 

/util 

A UNIX-like Utility Package 
for MS-DOS 


This collection of utility 
programs for MS-DOS 


UNIX-like syntax Slash (/) 





includes updates of the 
highly acclaimed Dr. Dobb’s 
articles Grep: A UNIX-Like 
Generalized Regular Expres- 
sion Processor, Ls from 

Dr. Dobb’s C Chest column, 
and Getargs from DDJ’s 

C Chest. 

Source code is included 
and all programs (and most 
of the utility subroutines) 
are fully documented in a 
UNIX-style manual. You’!! 
find executable versions of: 
cat A file concatenation and 
viewing program 
cp A file copy utility 
date Prints the current time 
and date 
du Prints amount of space 
available and used on a disk 
echo Echoes its arguments 
to standard output 


grep Searches for a pattern 
defined by a regular 
expression 

Ls Gets a sorted directory 
mkdir Creates a directory 
mv Renames a file or 
directory. Moves files to 
another directory. 

p Prints a file, one page at 
atime 

pause Prints a message and 
waits for a response 
printenv Prints all the 
environment variables 

rm Deletes one or more 
files 

rmdir Deletes one or more 
directories 

sub Text substitution utility. 
Replaces all matches of a 
regular expression with 


another string. 

Order The Shell and /util 
together for only $50! 

SAVE OVER 15%! 

Item #160 $29.95 
The Shell 

Item #161 $29.95 
/util 

Item #162 $50.00 
Shell/util Package 

To Order: 

To order any of Dr. Dobb’s 


products, return the order 
form at the end of this 
catalog, or 


CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 


For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 
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Finally! 
You've Asked For It For From Issue +111 

Years and Here It Is! January 1986 

| ** 4 Simple OS for Real-time 
Dr. Dobb's Applications; 68000 assembly | From Issue #112 

py az language techniques for an February 1986 

Listings On Disk operating system kernel by #8 Fact In ne Powers for 
Dr. Dobb’s Journal of DDJ editor Nick Turner Pascal: An implementation 
Software Tools has always ** Exec calls and Fortran; a é 





provided its readers with 
valuable code. Now, as a use- 
ful adjunct to the magazine, 
DDI offers the additional 
value and convenience of 
selected listings on disk! 
Dr. Dobb’s Listings #186 
is a collection of listings 
from Dr. Dobb’s January 
1986 issue, through the 
April 1986 issue. In this first 
of three Dr. Dobb’s Listings 
disks for 1986 you'll find 
listings from the following 
DDJ articles, among others. 


technique allowing execution 
of a user or system task from 
a user program from DDJ’s 
16-Bit Software Toolbox, 

by Robert Sypek 


** 32-bit Square Roots; An 
8086 assembly-language 


routine for 32-bit square roots 
by Michael Barr 


of the fastest-known algorithm 
for the computation of integer 
powers by Dennis E. 
Hamilton 

** Data Abstraction with 
Modula-2; Construction of a 
priority queue in Modula-2 
by Bill Walker and Stephen 
Alexander 

**T earning Ada on a Micro; 
A draw poker program in Ada 
by Do-While Jones 

** Fast IBM PC graphics 
routines from DDJs 16-Bit 
Software Toolbox, by Dan 
Rollins 


From Issue #113 
March 1986 


** Recursive Bose-Nelson 

Sort; An alternative to Joe 
Celko’s September 1985 sort 
routine by R.J. Wissbaum 
** 4 Variable-Metric 
Minimizer; A C program for 
minimizing arbitrary functions 
by Joe Marasco 


** Concurrency and Turbo 
Pascal; An approach to 
implementing coroutines in 
Pascal by Ernest Bergmann 
** Sneeding MS DOS Disk 
Access; Programs to test 
disk-access speed by Greg 
Weissman 


** Square Roots on the 
NS32000; Comparable square 
root routines in C and 
assembly language for National 
Semiconductor's 32000 family 
by Richard Campbell 


From Issue #114 
April 1986 


** Boca Raton Inference 
Engine; Lisp, Prolog, and 
Expert-2 techniques and code 
by Robert Brown 


Item #170 $14.95 
Dr. Dobb’s Listings #186 
Please specify MS/DOS, 
Macintosh, or CP/M. For 
CP/M disks, please specify 
one of the following formats: 
Apple, Osborne, Kaypro, 
Zenith Z-100 DS/DD, 

8” SS/SD. 


To Order: 


To order any of Dr. Dobb's 
products, return the order 
form at the end of this 
catalog, or 

CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 
and refer to product item 
number, title, and disk 
format. 


For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 216 
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David E. Cortesi 
longtime Dr. Dobb's 
columnist and author 
of Inside CP/M 

brings you — 


Dr. Dobb's 
Z80 Toolbook 


Here’s all you need to write 
your own Z80 assembly 
language programs for 
only $25! 


Do you use CP/M? Do you 
feel as if the only part of the 
computer industry that has 
not abandoned you is your 
own Z80 computer? It keeps 
on working, but when you 
need programs for it, you 
have to write them yourself. 
When you do, you quickly 
find that while Pascal or 
BASIC is okay for some 
things, there is often no 
substitute for the speed, 
small size, and flexibility 

of an assembly language 
program. 


Dr. Dobb’s Z80 Toolbook 
puts the power of assembly 
language in the hands of 
anyone who’s done a little 
programming. You’ll find: 
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**A method of designing 
programs and coding them in 
assembly language. Cortesi 
will take you on a walk 
through the initial specifica- 
tions, designing an algorithm 
and writing the code. He 
demonstrates this method 
in the construction of several 
complete, useful programs. 
**A complete, integrated tool- 
kit of subroutines for arith- 
metic, for string-handling, 
an for total control of the 
CP/M file system. They 
bring the ease and power of 
a compiler’s runtime library 
to your assembly language 
work, without a compiler’s 
size and sluggish code. 

Best of all, every line of the 
toolkit’s sorce code is there 
for you to read, and every 
module’s operation is 
explained with the clarity 
and good humor for which 
Dave Cortesi’s writing is 
known. 
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Order the Z80 
Software on Disk! 
Save Yourself the 
Frustration of 

File Entry 


All the software in Dr. Dobb’s 
£80 Toolbook—the programs 
plus the entire toolkit, both 
as source code and as object 
modules for both CP/M 2.2 
and CP/M Plus—is yours on 
disk. (A Z80 microprocessor 
and a Digital Research Inter- 
national RMAC assembler 
or equivalent are required.) 
Receive Dr. Dobb’s Toolbook 
for Z80, along with the 
software on disk, together for 
only $40! 


Dr. Dobb’s Toolbook for 780 
Item #022 $25 


Dr. Dobb’s Toolbook for Z80, 
together with software on 
disk. Please specify one of 
the following formats: 8” 
SS/SD; Apple; Osborne: 
Kaypro. 


Item #022A $40 


Z80 Toolbook 





Most of the programs are 
included in the book; 
however, the disk is 
necessary for complete 
listings 


To Order: 


To order any of Dr. Dobb’s 
products, return the order 
form at the end of this 
catalog, or 

CALL TOLL-FREE 
1-800-528-6050 EXT. 4001 


and refer to product item 
number, title, and disk 
format. 

For customer service 
questions, 

CALL M&T 
PUBLISHING, INC. 
415-366-3600 EXT. 21 6 
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ORDER NOW 
For Faster Service 
NAME On Credit Card Orders 
( Please use strect address, not P.O.Box) 
ADDRESS ae TOLL FREE 
cTy —“‘“‘sSSCSTATEC“‘itPtC—“‘;S™:sC«iX SC DDT 
DAY PHONE Please Refer To Item # 
a When Ordering 
Or, Fill Out This Postage Paid, 
For disk orders, please indicate format. Refer to ad for standard format availability for each product. Self-Mailing Order Form 
Special formats available for additional $10 each. And Return To: 
(| MS/DOS (_] Macintosh [] CP/M Osborne M&T PUBLISHING INC. 
Zenith Z-100 DS/DD Kaypro 501 GALVESTON DRIVE 
Apple 8” SS/SD REDWOOD CITY, CA 94063 
UNIT TOTAL 
QUANTITY ITEM# DESCRIPTION PRICE PRICE 


SUB-TOTAL Le 


CA residents must add applicable sales tax on merchandise total _________ % SALES TAX 
(CA residents must add sales tax to all items EXCEPT Dr. Dobb’s Sourcebook #004) 
Shipping must be included with order. See rates below. SHIPPING 


In US. For Bound Volumes, add $2.25 per book. Add $8.75 for special C Packages. For other books TOTAL ORDER | 
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S100 EPROM PROGRAMMER 
OUR NEWEST DESIGN, FOR FAST EFFICIENT PROGRAMMING OF THE 
MOST POPULAR EPROM’S ON YOUR S100 MACHINE. COMES WITH 
MENU DRIVEN SOFTWARE THAT RUNS UNDER CP/M 2.2 (8 INCH). PC 
BOARD SET CONSISTS OF (S100) MAIN LOGIC BOARD REMOTE 
PROGRAMMING CARD AND SIX PERSONALITY MINI BOARDS FOR 
2716, 2532, 2732, 2732A, 2764, AND 27128. SOLD AS BARE PC BOARD 
SET ONLY WITH FULL DOC. SOFTWARE FEATURES “FAST” 
MMING ALGORITHM. FOR Z80 BASED SYSTEMS. 
7 : 














LOW POWER! 
150 NS ADD $10 


BLANK PC BOARD 
WITH DOCUMENTATION 


$49.95 FEATURES: PRICE CUT! 


SUPPORT ICs + CAPS Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
$17.50 * Fully supports IEEE 696 24 BIT Extended 

: Addressing. ken tak 

* 64K draws only approximately : 
FULL SOCKET SET * 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM 2016s as fast as 100 NS. FOR YOUR HIGH 

SPEED APPLICATIONS.) 

FULLY SUPPORTS THE , syuppoRTS PHANTOM (BOTH LOWER 32K 

























PC BOARD SET, FULL 
DOCUMENTATION, 8 IN. 
DISKETTE WITH SOFTWARE. 


NEW! 869° 


128K $100 STATIC RAM/EPROM BOARD 























NEW IEEE 696 S100 AND ENTIRE BOARD). 
JUST OUT! USES POPULAR 8K X 8 STATIC RAMS (6264) OR 2764 STANDARD 7 -Srys EPROMs may be tautelled Inunyolitop A&K. 
EPROMS. FOR 8 OR 16 BIT DATA TRANSFERS! IEEE 696 STANDARD. (AS PROPOSED) + Any of the top 8K (E000 H AND ABOVE) may 


be disabled to provide windows to eliminate 
any possible conflicts with your system monitor, 
disk controller, etc. 


ASSEMBLED AND * Perfect for small systems since BOTH RAM and 
TESTED AD EPROM may co-exist on the same board. 
D $50 * BOARD may be partially populated as 56K. 


Green Screen - Video Monitors 
25 MHZ. TYPICAL BANDWIDTH!!! 


Brand New In The Box! 9-Inch Screen 
#K-904B1 (Chassis #Y08A) Open Frame Style 


GROUP SPECIAL: 


4 for 99° 


WITH DATA & SCHEMATIC 


LOW POWER. KITS ARE FULLY SOCKETED. FULL DOC AND 
SCHEMATICS INCLUDED. 24 BIT ADDRESSING. 


NEW! ShQ385 $91 900 $4 3990 


BARE PC BOARD 128K RAM KIT 128 EPROM KIT 


256K S-100 SOLID STATE DISK SIMULATOR! 

WE CALL TH/S BOARD THE “LIGHT-SPEED-100" BECAUSE IT OFFERS 

AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 

WHEN COMPARED TO A MECHANICAL FLOPPY DISK DRIVE. 
FEATURES: 


PRICE CUT! , aoecaee board, using + 5V 64K 


x Uses new Intel 8203-1 LSI Memory 

Controller. 

Requires only 4 Dip Switch Selectable 

1/O Ports. 

Runs on 8080 or Z80 S100 machines. 

Up to 8 LS-100 boards can be run 

together for 2 Meg. of On Line Solid 

State Disk Storage. 

Provisions for Battery back-up. 

Software to mate the LS-100 to your 

CP/M* 2.2 DOS is supplied. 

The LS-100 provides an increase in 

speed of up to 7 to 10 times on Disk 

Intensive Software. 

* Compare our price! You could pay 
up to 3 times as much for similar 













































































(USA SHIPPING: $3. PER UNIT. CANADA: $7. PER UNIT) 
COMPUTER MANUFACTURER’S EXCESS. STILL IN ORIGINAL 

























BLANK PCB 







en cee arse tat i Esa PANASONIC BOXES. THE CRT TUBE ALONE WOULD COST MORE 
PROGRAM ON DISKETTE) $4 2900 THAN OUR PRICE FOR THE COMPLETE UNIT. FOR SPLIT VIDEO 
$4,995 (ADD $50 FOR A&T) (TTL INPUTS) OPERATION, NOT COMPOSITE VIDEO. OPERATES 

(8203-1 INTEL $29.95) FROM 12VDC AT 1 AMP. VERTICAL INPUT IS 49 TO 61 HZ. 
HLS-300 (FULL 256K KIT) HORIZONTAL INPUT: 15,750 HZ + 500 HZ. RESOLUTION IS 800 











LINES AT CENTER 650 LINES AT CORNERS. 


ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST Z-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TO MAKEA 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
WITH A MODEM FOR USE WITH ANY OF THE PHONE-LINE COMPUTER 
SERVICES. es —~ 
FEATURES: 
* Uses a Z80A and 6845 CRT 
Controller for powerful video 



























THE NEW 65/9028 VT 
ANSI VIDEO TERMINAL BOARD! 


* FROM LINGER ENTERPRISES * 


A second generation, low cost, high performance, mini sized, single board 
for making your own RS232 Video Terminal. Use as a computer console or 
with a MODEM for hook up to any of the telephone-line computer services. 






































capabilities. FEATURES: MICRO SIZE! 
* RS232 at 16 BAUD Rates from 75 * Uses the new SMC 9028 Video re seaaamet 
to 19,200. 


Controller Chip coupled with a 













* 24 x 80 standard format (60 Hz). 6502A CPU. 
* Optional formats from 24 x 80 x RS-232 at 16 Baud Rates from 50 
(50 Hz) to 64 lines x 96 characters to 19,200 


(60 Hz). 

* Higher density formats require up to 
3 additional 2K x 8 6116 RAMS. 

x Uses N.S. INS 8250 BAUD Rate Gen. 
and USART combo IC. 

* 3 Terminal Emulation Modes which 


On board printer port! 

24 X 80 format (50/60 Hz). 

For 15,750 Hz (Horiz.) monitors. 
3 Terminal Modes: H-19, ADM3A, 
and ANSI X 3.64-1979 
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Wide and thin-line graphics. 















are Dip Switch selectable. These $ 95 A&T * White characters on black back- rs 

include the LSI-ADM3A, the Heath ADD ground or reversed. S 95 

ta 9, ~ the ein #ZRT-80 $50 * rahi yg fk ea Oe eet 
« Composite or Split Video. - nverse, Underline an ank. ' Ki 
* Any polarity of video or sync. (COMPLETE KIT, 2K VIDEO RAM) * Low Power: 5VDC @.7A, + 12VDC rors) 
* Inverse Video Capability. = @ 20MA. ADD $40 FOR A&T 
* Small Size: 6.5 x 9 inches. BLANK PCB WITH 2716 * Mini size: 6.5 X 5 inches. ae 
* Upper & lower case with descenders. CHAR. ROM. 2732 MON. ROM x Composite or split video. SOURCE DISK : 


PC/XT FORMAT 







* 7x 9 Character Matrix. x 5 X 8 Dot Matrix characters 51% IN. $15 
* Requires Par. ASCII keyboard. $4995 oe a age ae tape ‘iia 
* x Answer back capability. OPTIONAL EPROM FOR 
FOR 8 IN. SOURCE DISK = SOURCE DISKETTE - ee DISKETTE - ADD $10 x Battery backed up status memory. PC/XT STYLE SERIAL 
(CP/M ag SET OF 2 CRYSTALS - ADD $7.50 For ASCII parallel keyboard. KEYBOARD: $15 












TERMS: Add $3.00 postage. Orders under $15 add 75¢ handling. No 
C.O.D. We accept Visa and MasterCharge. Tex. Res. add 5-1/8% Tax. 
Foreign orders (except Canada) add 20% P & H. Orders over $50 add 85¢ 
for insurance. 


Digital Research Computers 


P.O. BOX 381450 « DUNCANVILLE, TX 75138 « (214) 225-2309 
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FORTH STANDARDS 


Listing One (Text begins on page 30.) 





B:PAPERS .BLK 12 >RESOLVESLIST (S a - )( resolve all nodes in a to here ) 
13 DUP @ BEGIN DUP WHILE DUP @ SWAP >RESOLVE REPEAT 
Screen 12* 14 DROP !0 1 6 +THRU 

0 \ FORTH-83 Standard type control structures GWS 86Mar31 15 

1 \ note: !0 is 0 SWAP ! ADDR, is , (Stat 

2 

3 : >MARK HERE 2 ALLOT ; (S - a )( mark forward branch ) Screen é 

4 : >RESOLVE HERE SWAP ! : (S a - )( patch forward branch ) 0\ compilation list initialization GWS 86Mar31 

5 : <MARK HERE : (S - a )( destination for back branch ) 1 ORPHAN { make headless words ) 

6 : <RESOLVE ADDR, : (S a - )( compile reference to a ) 2 VARIABLE IF-LIST VARIABLE LEAVES-LIST VARIABLE LEAVE-LIST 

7 3 VARIABLE LEAVE-CF 

8 VARIABLE LEAVE-LIST 4 : INIT-LISTS (S - )( reset all list pointers ) 

9 : >MARKLIST (S a - )( extend list at a, link in dictionary ) 5 IF-LIST !0 LEAVE-LIST !0 LEAVES-LIST !0 . 

10 HERE SWAP DUP @ ADDR, ( link) ! ( new head) ; 6 
1% >RESOLVESLIST (S a - )( resolve all nodes in a to here ) 7 SAVE-LISTS (S - x x x x )( save current list pointers ) 
a2 DUP @ BEGIN DUP WHILE DUP @ SWAP >RESOLVE REPEAT 8 LEAVE-CF @ IF-LIST @ LEAVE-LIST @ LEAVES-LIST @ 
13 DROP !0 ; 1 2 +THRU 9 INIT-LISTS : 
14 10 : RESTORE-LISTS (S - x x x x )( restore current list pointers ) 
15 iT: ( could check here for unresolved structures) 
12 LEAVES-LIST ! LEAVE-LIST ! IF=LIST ! LEAVE-CF ! ; 
13 
Screen 13 14 ADOPT ( make headed words ) 

0 \ conditional compilers - if/else/then begin/while GWS 86Mar31 15 

1 

2: IF (S - a / f = )( compile to branch if f is false ) 

a COMPILE ?BRANCH >MARK + IMMEDIATE Screen 5 

4 : ELSE (S al - a2 / - )( compile alternate to IF clause ) 0 \ Conditional compilers - if/else/then & case GWS 86Mar31 

5 COMPILE BRANCH >MARK SWAP >RESOLVE >; IMMEDIATE 1 

6 : THEN (S a - / = )( resolve latest forward reference ) 20 5 EP (S - / £ - )( compile to branch if f is false ) 

7 >RESOLVE + IMMEDIATE 3 COMPILE ?BRANCH IF-LIST >MARKLIST ; IMMEDIATE 

8 4 : ELSE (S - / - ){ compile alternate to IF clause ) 

9 : BEGIN <MARK >; IMMEDIATE (S - a / — )( mark loop start ) 3 COMPILE BRANCH IF-LIST >MARKLIST IF-LIST @ ( if branch) 
10 : WHILE [COMPILE] IF * IMMEDIATE (S-a./ f — )({ loop exit ) 6 >RESOLVELIST 7; IMMEDIATE 
11 : REPEAT (S al a2 - / - )( branch to beginning of loop ) 7 THEN (S - / - )( resolve latest forward reference ) 
12 COMPILE BRANCH SWAP <RESOLVE >RESOLVE + IMMEDIATE 8 IF-LIST >RESOLVELIST > IMMEDIATE 
13 : UNTIL (Sa - / £ = )( branch to beginning of loop until true ) 9 
14 COMPILE ?BRANCH <RESOLVE IMMEDIATE 10 : CASE (S - x x x x / 2? - 2? )( setup for case statement ) 
15 Lt SAVE-LISTS {'] BRANCH LEAVE-CF ! ; IMMEDIATE 

12 : ENDCASE (S - / x x x x - )( restore lists, resolve leaves ) 
13 LEAVES-LIST >RESOLVESLIST RESTORE-LISTS ; IMMEDIATE 
Screen 14 14 

0 \ do loops GWS 86Mar31 15 

1 

2 : LEAVE (S - / - )( compile exit from structure ) 

3S COMPILE (LEAVE) LEAVE-LIST >MARKLIST ; IMMEDIATE 

4 

5-: BO (S-na/niln2 - )( initiate counted loop ) 

6 COMPILE (DO) LEAVE-LIST @ LEAVE-LIST !0 <MARK . B: PAPERS .BLK 

7 IMMEDIATE 

8 : LOOP (S na -—- / - )( compile increment loop end ) Screen 6* 

9 COMPILE (LOOP) <RESOLVE LEAVE-LIST >RESOLVESLIST On % common loop end and exit GWS 86Mar31 
10 LEAVE-LIST ! + IMMEDIATE 1 
11 : +LOOP (S na- / u - )( compile u incremented loop end ) 2 ORPHAN ( make headless words ) 
12 COMPILE (+LOOP) <RESOLVE LEAVE-LIST >RESOLVESLIST 3 : LOOPEND (S x x x x al a2 - )( resolve list a2 & branch ) 
13 LEAVE-LIST ! ; IMMEDIATE 4 ( al, restore values x, transfer leaves-list to if-list ) 

14 Bes ae 5 SWAP <RESOLVE ( back branch) >RESOLVESLIST ( forward branch) 
15 End Listing One 6 LEAVES-LIST @ 2DUP IF >R  RESTORE-LISTS IF-LIST @  R@ 
7 BEGIN DUP @ WHILE a REPEAT ( find leaves list end) ! 
8 ( link to if list) R> IF-LIST ! ELSE RESTORE-LISTS 
9 THEN ; 
= e 10 ADOPT ( make headed words ) | 
Listing TWO 11 : OUTSIDE (S - / - ){( allow LEAVES outside current loop level) | 
12 IF-LIST @ DUP @ IF-LIST ! ( unlink) LEAVES-LIST @ OVER ! 
13 COMP ILE-UNNEST LEAVES-LIST ! ( relink) ; IMMEDIATE 
14 | 
B:PAPERS .BLK 15 
Screen 15* 

0 \ typical BEGIN loop extensions GWS 86Mar31 | 
1 Screen 7 
2 : RESOLVES (S 0..a - )( resolve forward branches a until 0 ) o.% do loops GWS 86Mar3l 
2 BEGIN 2DUP WHILE >RESOLVE REPEAT ; 1 
4 2 : LEAVE (S - / - )( compile exit from structure ) 
5 : BEGIN 0 <MARK ; IMMEDIATE (S 0 a - )( mark loop start ) 3 LEAVE-CF @ ADDR, LEAVE-LIST >MARKLIST ; IMMEDIATE 
6 4 : LEAVES (S - / - )( compile exit to outside structure ) 
7 : WHILE (S al - a2 al / f - )( conditional loop exit ) 5 LEAVE-CF @ ADDR, LEAVES-LIST >MARKLIST [COMPILE] THEN ; 

8 [COMPILE] IF SWAP + IMMEDIATE 6 IMMEDIATE 
9 7 

10 : REPEAT (S 0..an a - / — )( terminate repeating loop ) 8 : DO (S-xxxxa/uu - )( initiate counted loop ) 

LE COMPILE BRANCH <RESOLVE RESOLVES ; IMMEDIATE 9 SAVE-LISTS ('] (LEAVE) LEAVE-CF ! COMPILE (DO) 

12 : UNTIL (S 0..an a - / £ - )( terminate conditional loop ) 10 <MARK ; IMMEDIATE 

13 COMPILE ?BRANCH <RESOLVE RESOLVES ; IMMEDIATE 11 : LOopP (Sx xxxa-/- ){ compile increment loop end ) 

14 pie 12 COMPILE (LOOP) LEAVE-LIST LOOPEND  ; IMMEDIATE 

15 End Listing Two 13 : +LOOP (Sx x x x x a - / u — )( compile ut+ loop end ) 
14 COMPILE (+LOOP) LEAVE-LIST LOOPEND +; IMMEDIATE 
PS 

Listing Three Screen 8 
0 \ more loops GWS 86Mar31 
1 

B:PAPERS.BLK 2 : BEGIN (S - x x x xa // —- )( mark start of a loop ) 
3 [COMPILE] CASE <MARK +; IMMEDIATE 

Screen 3* S 

0 \ Proposed Standard Control Structures GWS 86Mar31 5 : REPEAT (Sx xxxa- /-=— )( terminate repeating loop ) 
1 \ note: !0 is 0 SWAP ! ADDR, is , (Sis ( 6 COMPILE BRANCH IF-LIST LOOPEND 
2 : 7 LEAVE-LIST >RESOLVESLIST +; IMMEDIATE 
3 : >MARK HERE 2 ALLOT - (S - a )( mark forward branch ) 8 UNTIL (Sx x x x a- / — )( terminate repeating loop ) 
4 : >RESOLVE HERE SWAP ! - (S a - )( patch forward branch ) 9 COMPILE ?BRANCH IF-LIST LOOPEND ? 
5 <MARK HERE : (S - a )( destination for back branch ) 10 LEAVE-LIST >RESOLVESLIST ; IMMEDIATE 
6 <RESOLVE ADDR, ; (S a - )( compile reference to a ) 11 
7 12 : WHILE [COMPILE] IF * IMMEDIATE (S - )( for compatibility) 
8 : >MARKLIST (S a - )( extend list at a, link in dictionary ) 13 
9 HERE SWAP DUP @ ADDR, ( link) ( new head) ; 14 
10 >RESOLVELIST (S a - )( resolve top node in a to here ) 15 
11 DUP @ DUP @ ROT ! ( unlink top node) >RESOLVE ; 1 

End Listing Three 
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Listing Four 


B:PAPERS.BLK 


Screen - 
0 \ suggested extensions GWS 86Mar31 
. 
2 : ?LEAVE (S - / £ - )( leave do loop if tf ) 
3 COMPILE (?LEAVE) LEAVE-LIST >MARKLIST ; IMMEDIATE 
4 : ?LEAVES (S - / £ - )( leave do loop if tf ) 
5 COMPILE (?LEAVE) LEAVES-LIST >MARKLIST ; IMMEDIATE 
6 
7 : THENS (Ss - / - )( resolve all outstanding IFs ) 
8 IF-LIST >RESOLVESLIST ; IMMEDIATE 
9: ELSES (S - / - )( resolve all outstanding IFs w/common ELSE ) 
10 [COMPILE] ELSE IF-LIST @ >RESOLVESLIST ; IMMEDIATE 
11 
12 
13 
14 & e 
15 End Listing Four 


Listing Five 
Previously Proposed Solutions 


BEGIN ... 
WHILE ... 
WHILE ... 


REPEAT 


BEGIN ... 
WHILE ... 
WHILE ... 


UNTIL 


BEGIN ... 
WHILE ... 
ANDWHILE ... 
ANDWHILE ... 


REPEAT 


BEGIN ... 
WHILE aa 
WHILE bb 
WHILE ec 


REPEAT dd 
<WHILE ee 
<WHILE rf 

<END 


BEGIN ... 
IF ... LEAVE THEN 
IF ... LEAVE THEN 


REPEAT 


BEGIN ... 
UNLESS ... FINISH 
UNLESS ... FINISH 


AGAIN 


DO 4.5% 
PERHAPS ... ESCAPE 
PERHAPS ... ESCAPE 


LOOP ... 
ESCAPED ... 


DO Sa 

IF ... LEAVE THEN aa 
LOOP--FALLTHRU: bb 
THEN cc 


DO ... 
WHEN ... 
LOOP 


DO ... 
NOTWHEN ... 
LOOP 


DO 25,4 

IF LEAVE THEN ... 
EXITING LOOP 
THEN 


none 
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Proposed Solution 


same 


same 


BEGIN ... 
WHILE 
WHILE 
WHILE 


REPEAT 

BEGIN ... 
NOT IF £f LEAVES aa 
NOT IF ee LEAVES bb 
WHILE cc 


REPEAT dd 


THEN THEN 


see below 

BEGIN ... 
IF ... LEAVES 
IF ae LEAVES 


REPEAT THEN THEN 


DO os. 

IF ... LEAVES 

IF ... LEAVES 
LOOP <<% 
THEN THEN ... (or ELSE ... 

THEN) 

DO. a.<< 

IF ... LEAVES aa 
LOOP bb 
THEN ce 


NOT IF LEAVE THEN ... 
LOOP 


DO see 
IF LEAVE THEN ... 
LOOP 


DO iss 
IF LEAVES 
LOOP 


THEN 
DO ... 
DO ... 
Le LEAVES 


LOOP OUTSIDE 
LOOP 








THEN 






BEGIN ... 
BEGIN ... 
IF LEAVES 










REPEAT OUTSIDE 
REPEAT 















<STEPS ... 





&IF ... LP ssi cke 
&IF ... IF ... 
STEPS> 





coe EF. cate 
ANDIF ... EP vexsn 
ER, nets 










( ELSES) 
THEN THENS ( THEN) 





CASE ... 
OVER = IF ... LEAVES 
OVER = IF ... 


OF ... ENDOF 


DROP ENDCASE 


End Listings 


$77.00 USA dolla 


Ideal for De Smet C. Lattice C and most one or two pass compilers regardless 
of the language. 


For IBM/XT/AT and compatibles, DOS 2.1 or later. 


Send check or money order to: 





Software Construction 
467 Saratoga Ave. #256 
San Jose, CA 95129 
00100010 California residents add sales tax. Foreign orders add $5. 


0010 1110 De Smet C is a trademark of Cware Corp. 
0010 0010 Lattice C is a trademark of Lattice Inc. 





Circle no. 177 on reader service card. 
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FORTH AT SEA 


Listing One (Text begins on page 40.) 


RERRKKEKK EEK ERE ERE RRR KERR ERK EERE REKREREREEKKEAK KKK KKK ARE 


RAFOS FORTH V1.0 
— ROM #1 of 2 


26 March 1986 


This FORTH is a subset of the FORTH-79 standard. 
Some changes have been made in order to save on 
space in the limited memory of the float. 


+e eet + + H+ HD 


(C) Copyright 1986, Everett Carter. All rights reserved. 


+eenenee eo 4 


BREAKER ERR RRREKR AKER RE REAKEKEKER ARERR KKK KAA REE 


x 


* EQUATES FOR ROM 2 

QUES EQU $1000 

TOG6 EQU $105F TOGGLE 
IMM9 EQU $1089 IMMEDIATE 
DFND EQU $109B -FIND 
cous EQU $10B1 COUNT 
ZERO EQU $10C3 0 

ONE EQU $10D8 1 

TWO EQU $10EF 2 

TWOP EQU $1106 2+ 
LBRAK EQU $1121 [ 
RBRAK EQU $1131 ] 

DEFS EQU $1143 DEFINITIONS 
PLUS EQU = $1155 “ 
MINUS EQU $117¢ ~ 

UMULT EQU-- $11A7 Us 

x 

PAD EQU $1289 PAD 
LSHP EQU $129B <# 
OVER EQU $12AB OVER 
SPGR EQU $12CE #> 

TOR EQU $12E6 >R 

RTO EQU $130A R> 
RFTCH EQU $132E R@ 

ROT EQU $134F ROT 
HOLD EQU $1361 HOLD 

* 

COMP EQU $1557 COMP ILE 
SEMI EQU $156D ; 

COLON EQU $157F : 

TICK EQU $159B ' 

VAR8 EQU $15¢5 VARIABLE 
*« 

Il EQU $17EE I 

x 


LATEST EQU I1-6 Last Dictionary entry 
2 


ROM EQU $1800 ROM #1 start address 

* 

CR EQU $OD CARRIAGE RETURN 

LF EQU SOA LINE FEED 

BL EQU $20 BLANK 

BS EQU $08 Back Space 

DEL EQU S7F Delete 

x 

DDR EQU 4 DATA DIRECTION REGISTER OFFSET 
x 

PORTA EQU 0 I/O PORT 0 

PORTB EQU 3 I/O PORT 1 

PUT EQU PORTB SERIAL I/O PORT 

x 

INITSP EQU $7F INITIAL STACK POINTER VALUE 
STACK EQU INITSP-5 TOP OF STACK 

MEMSIZ EQU $2000 MEMORY ADDRESS SPACE SIZE 
x 

SPO EQU SOFOO 

RPO EQU SOEOO 

TIB EQU $OD80 

* 

*x 

* 

* RAM VARIABLES 

* 

x 


ORG $10 ON-CHIP RAM (112 BYTES) 


* 


ATEMP EQU $10 TEMP USED IN PUTDEC 
INDEX TEMPORARY 

GETR EQU $12 PICK & DROP TEMPORARY 
COUNT EQU $16 


CHAR EQU $17 


BYTCNT EQU $1E 
WTIME EQU $20 


bytcnt. 


PH EQU $21 MISC SCRATCH AREAS 
PL EQU $22 
TEMPA EQU $23 
TEMPB EQU $24 
QH EQU $25 
QL EQU $26 
TEMP EQU $27 


TERM EQU $28 
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NUMBER OF BITS LEFT TO get/send 
Current input/output character 


TIMER INTERRUPT FROM WAIT STATE 


IN 
COUNTR 
DP 
START 
* 

IP 


SP 
BASE 
x 


USER 
FENCE 


STATE 
FORTH 


CONTEXT 


HLD 


* 


DOCOL 
DOCOL1 
. 


TYPE 


ORG $0029 
FCB #0 Where FORTH will look for input 
FCB #0 
FCB #0 
FDB #$01D0 The initial Dictionary pointer 
FDB #0 The start up vector 
FDB #0 THE FORTH INSTRUCTION POINTER 
FCB #0 THE RETURN POINTER OFFSET 
FCB #0 THE STACK POINTER OFFSET 
FCB #$10 
EQU * The space for USER variables 
EQU 0 USER + 0 
FDB #0 INITIALIZE USER VARS 
EQU 2 USER + 2 
FDB #0 
EQU 4 USER + 4 
FDB #0 
EQU 6 USER + 6 
FDB USER+FORTH 
EQU 8 USER + 8 
FDB USER+FORTH 
EQU SOA USER + SOA 
FDB #0 
ORG $0080 


The start of the INNER interpreter 


LDX RP * Push IP to RS 


EQU DOCOL 


DECX 

LDA IP+1 
STA RPO,X 
DEX * 

LDA IP 

STA RPO,X 
STX RP 

IDA NEXT1+2 
ADD #2 

STA IP+1 
IDA NEXT1+1 
ADC #0 

STA IP 


fall thru to NEXT 


LDA IP+1 
STA CA+2 
LDA IP 
STA CA+1 
LDA SPO 
STA NEXT1+1 
LDA IP+1 
ADD #1 
STA CA2+2 
LDA IP 
ADC #0 
STA CA2+1 
LDA SPO 
STA NEXT1+2 
LDA IP+1 
ADD #2 
STA IP+1 
LDA IP 
ADC #0 
STA IP 
JMP COLD 


NEXT The Inner Interpreter 
SELF-MODIFYING 


-- SPO is a dummy 


-- SPO is a dummy 


-- COID is a dummy 
SELF MODIFYING CODE FIRST 


STA SPO,X STA (HERE) ,X 
RTS move A to HERE+X 


LDA SPO,X LDA (HERE) ,X 
RTS get HERE+X into A 


FCB 4 TYPE -- SELF MODIFYING 
FCC: *TYP® 
FDB #0 
LDX SP 
INCX Drop high byte 
LDA SPO,X 
INCX 

STA COUNTR 
LDA SPO,X 
INCX 

STA TYSCR+1 
LDA SPO,X 
INCX 

STA TYSCR+2 
STX SP 

CLR OUT 


end link 


COUNTR = byte count 
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TLOOP 
TYSCR 


TXIT 
* 


FIN6 


FINCNT 


FINLP1 
FINLP2 


FINSCR 


NFND 


NONE 


FOUND 


FQUIT 


BRSC1 


BRSC2 


TST COUNTR 
BEQ TXIT 
LDX OUT 

LDA SPO,X 
JSR OUTCHAR 
INC OUT 

LDA OUT 

SUB COUNTR 
BMI TLOOP 
JMP NEXT 


FCB 6 

Pac *<e2" 
FDB TYPE-6 
LDX SP 
LDA SPO,X 
INCX 

STA GET+1 
LDA SPO,X 
INCX 

STA GET+2 
LDA SPO,X 
INCX 


STA FINSCR+1 
STA FINCNT+1 


LDA SPO,X 
INCX 


STA FINSCR+2 
STA FINCNT+2 


STX SP 
LDA SPO 
STA COUNTR 
TSTA 

BEQ NONE 
CLRX 

JSR GET 
AND #$7F 
CMP SPO,X 
BNE NFND 
CPX #3 
BEQ FOUND 
CPX COUNTR 
BEQ FOUND 
INCX 

BRA FINLP2 
LDX #4 
JSR GET 
STA ATEMP 
INCX 

JSR GET 
ORA ATEMP 
BEQ NONE 
JSR GET 
STA GET+2 
LDA ATEMP 
STA GET+1 
BRA FINLP1 
LDX SP 
CLRA 

BRA FQUIT 
LDX SP 
LDA GET+2 
ADD #6 
DECX 

STA SPO,X 
LDA GET+1 
ADC #0 
DECX 

STA SPO,X 
STX SP 
CLRX 

JSR GET 
IDX SP 
DECX 

STA SPO,X 
CLRA 

DECX 

STA SP0O,X 
LDA #SFF 
DECX 

STA SPO,X 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 4 

FCC 'BRA' 
FDB FIN6-6 
LDA IP 

STA BRSC1+i 
STA BRSC2+1 
LDA IP+1 
STA BRSC1+2 
STA BRSC2+2 
LDX #1 

LDA SPO,X 
ADD IP+1 
STA IP+1 
CLRX 

LDA SPO,X 
ADC IP 


-—— SPO is a dummy 


<FIND> -- SELF MODIFYING 
link to TYPE 


get addrl high 


addrl low 


get addr2 high 


-- SPO is a dummy 
save byte count 
count = 0 ? 


ignore bit 7 
-- SPO is a dummy 


X = 3 ? if so quit as FOUND 
xX 


count ? 


Not found, go to next element 


=0 ? 
if yes, end of list 
else move new pointer to get 


and try again 
nothing, push a FALSE to stack 


push CA of found word 


get the byte count and push it 


push a TRUE flag 


BRAN -- SELF MODIFYING 


link to <FIND> 


(continued on next page) 
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AT LAST: Professional 
Typesetting Capability 
For PC Users 


With PC TpX'” —- the best-selling full 


implementation of Professor Don Knuth’s 
revolutionary typesetting program TRPXx. 


FINEST Typeset Quality Printing From: 


dot matrix laser phototypesetter 
Qi1 “es Qin 
a | G91 ++. Gan Gomes 
= 4 ; : | € dz 
f= | : 8 
AGm1 --+ Omn 


WIDEST Range Of Output Device Drivers: 


e Epson FX, LQ e HP LaserJet* 

e Toshiba e Apple LaserWriter 

e Corona LP-300* e APS-5 phototypesetter 
e Screen preview, with EGA or Hercules card 


MOST COMPLETE Product Offering: 


PC TX (not copy protected) includes the following: 
e Our specially written PC TX Manual, which en- 
ables you to start using TeX right away. 
e Custom “macro packages” that provide formats 
for letters, manuals, technical documents, etc. 


e The JATRX document preparation system, a full- 
featured macro package for preparing articles, 
books, reports, etc., and IATf#X User’s Manual. 

e AVS-TRX, developed by the Amer. Math. Society 
for professional mathematical typesetting. 

Site licenses, volume discounts, and interfaces to 
PC Paintbrush, PC Palette, FancyFont and Fontrix 
are also available. 


PRICED FROM ONLY $249.00! 


(Printer drivers and interfaces additional.) 


Laser printer, 
fonts & software 


from $2995.00 





For IBM PC/XT, AT or compatible, DOS 2.0 or higher, and 
512K RAM. Hard disk required for printer drivers and fonts. 
*HP LaserJet and Corona require additional interface boards. 


For more information call or write: 


Personal TprxX, Inc. 


20 Sunnyside, Suite H, Mill Valley, CA 94941 (415) 388-8893 


This ad, with space for the photograph, produced by PC Tpx. 
Typeset on the Epson FX80, the Corona LP-300 laser printer, 
and the Autologic APS-5 phototypesetter. 


TeX is a trademark of the American Mathematical Society. Manufac- 
turers’ product names are trademarks of individual manufacturers. 


Circle no. 76 on reader service card. 
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FORTH AT SEA 


Listi NG One (Listing continued, text begins on page 40.) 


STA IP 

JMP NEXT 
FRR IIRC OTCT TOT TOT TTR TR AK kk 
* 


= NO SELF MODIFYING CODE BEYOND THIS POINT 


* 


OFFSET EQU * 


ORG ROM+OFFSET * ROM #2 ORIGIN 


* 
* 


FCB 7 

FCC ‘OBR' 

FDB BRAN-6 
ZBRAN IDX SP 

LDA SP0,X 

INCX 

ORA SPO,X 

INCX 

STX SP 

TSTA 

BNE ZBREX 

JMP BRAN 
ZBREX LDA IP+1 bump IP past offset 

ADD #2 

STA IP+1 

LDA IP 

ADC #0 

STA IP 

JMP NEXT 


OBRANCH 


link to BRAN 


FCB 4 EXIT 

FCC ‘*EXI' 

FDB ZBRAN-6 
EXIT LDX RP 

LDA RPO,X 

INCX 

STA IP 

LDA RPO,X 

INCX 

STA IP+1 

STX RP 

JMP NEXT 


link to OBRANCH 
Pop RS into IP 
High byte 


then low byte 


FCB 7 

FCC ‘EXE’ 

FDB EXIT-6 
EXE7 LDX SP 

LDA SPO,X 

INCX 

STA NEXT1+1 

LDA SPO,X 

INCX 

STA NEXT1+2 

STX SP 

JMP NEXT1 


EXECUTE 


link to EXIT 
Pop SP into W (NEXT1+1) 
First high byte 


Then low byte 


INLINE JSR CRLF 

LDA #BL 

CLR COUNTR 

CLRX Clear line buffer 
STA TIB,X 
INCX 

CPX #S7E 
BNE INLP1 
CLR IN 
CLRX Clear buffer pointer 
JSR GETCHAR ( X = IN ) 

CMP #DEL = DELETE ? 


BNE INTST2 branch if not 
INDEL CPX #0 

BEQ INLP2 

DECX 

IDA #BL 

STA TIB,X 

LDA #BS 

JSR OUTCHAR 

LDA #BL 

JSR OUTCHAR 

LDA #BS 

JSR OUTCHAR 

BRA INLP2 
INTST2 CMP #BS 
BEQ INDEL 
CMP #CR 
BEQ INEX 
STA TIB,X 
CPX #$7D 
BHS INSKP 
INCX 
JSR OUTCHAR 
BRA INLP2 
INEX LDA #BL 

JSR OUTCHAR 

JMP NEXT 


INLP1 


Buffer end ? 


INLP2 


Skip if IN (LBP) = 0 already 


DELETE CHAR 


maybe its a backspace 


or a CR 


INSKP 
Back to main loop 
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EMIT 


BL2 


WORD 


IGNBL 


TOK 


WORXIT 


MPY16 


MPYNXT 


ROTAT 


FCB 4 

FCC ‘EMI' 
FDB EXE7-6 
LDX SP 

INCX 

LDA SP0O,X 
INCX 

STX SP 

JSR OUTCHAR 
JMP NEXT 


FCB 2 
FCC. *BL .* 
FDB EMIT-6 
LDX SP 
LDA #BL 
DECX 

STA SPO,X 
CLRA 

DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 4 

FCC ‘WOR’ 
FDB BL2-6 
LDA DP 
STA LOAD+1 
LDA DP+1 
STA LOAD+2 
CLR COUNTR 
CLRA 

CLRX 

JSR LOAD 
LDX SP 
INCX 

LDA SPO,X 
STA TERM 
INCX 

STX SP 

LDX IN 
CMP #BL 
BNE TOK 
LDA TIB,X 
CMP #BL 
BNE TOK 
INCX 

BRA IGNBL 
INC COUNTR 
LDA TIB,X 
STX XTEMP 
LDX COUNTR 
JSR LOAD 
LDX XTEMP 
INCX 

CMP #$80 
BEQ WORXIT 
CMP TERM 
BNE TOK 
STX IN 
LDA COUNTR 
DECA 

CLRX 

JSR LOAD 
LDA DP+1 
LDX SP 
DECX 

STA SPO,X 
LDA DP 
DECX 

STA SPO,X 
STX SP 

JMP NEXT 


LDX #$10 
CLR TEMPA 
CLR TEMPB 
ROR QH 
ROR QL 
BCC ROTAT 
LDA TEMPB 
ADD PL 
STA TEMPB 
LDA TEMPA 
ADC PH 
STA TEMPA 
ROR TEMPA 
ROR TEMPB 
ROR QH 
ROR QL 
DECX 

BNE MPYNXT 
RTS 


EMIT 
link to EXECUTE 
drop high byte 


BL 


link to EMIT 


WORD 


link to BL 
Start by setting up LOAD 


Clear DP 
get terminator 
drop high byte 


get INput pointer 
seperator = space ? 


ignore blank 


save X 


move char to DP + COUNTR 
get X back 


character = buffer end ? 


continue unless terminator 
Save new value of IN 
move count-1 to DP 


Push DP addr to stack 


16 bit X 16 bit multiply 32 bit result 
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FCB 8 <NUMBER> 
FCC ‘<NU' 
FDB WORD-6 link to WORD 
NUM8 IDX SP pop stack into GET 
LDA SPO,X 
INCX 
STA GET+1 
LDA SPO0,X 
INCX 
STA GET+2 
STX SP 
CLRX Put char count into COUNTR 
JSR GET 
STA COUNTR 
TSTA count = 0 ? 
BEQ NOTNO 
INCX 
CLR TEMP TEMP is the sign flag 


Professional Test/Format 
a Program For 
DA Base at ae Hard Drives in PC/XT/AT 


JSR GET Get first char 

ENE NUMSKP eee Fil Setup interleave, step rate, etc. 

INcK es ae Fil Surface analysis to flag bad tracks 

eae ees i Load/save setup and bad track files 
NUMSKP Cx at this point X points 1 past char inA el Now supports AUTOCONFIG! 

ee ae a i Menu driven, with help windows 

paca less than 10 ? fl Free PARK program included! 

a Ai Vaile ater Ei Order HDTEST today for only $99! 
NUMB ae oe valid for this base ? 


NOTNO oe NOPE, push a FALSE Proto PC inc. 


NUMXT LDX SP 
DECX 


=, a Py wae 


STA Shox 2424 Territorial Road, St. Paul, MN 55114 


JMP NEXT Telex 910-380-7623 
ANUMB STX XTEMP save X in XTEMP 


STA ATEMP and A in ATEMP 
JSR MPY16 Q= Q * BASE 
LDA ATEMP get A back 
ADD QL Q=Qt+A 
STA QL 
LDA QH 
ADC #0 
STA QH 
LDX XTEMP get X back 
CPX COUNTR X > COUNTR ? 
BHI NUMOK 
JSR GET 
BRA NUMSKP 
NUMOK LDA TEMP number OK, now check sign 
TSTA 
BEQ NUMPOS 
CLRA 
NEG QL 
SBC QH 
STA QH 
NUMPOS a i push number at Q and flag @ No royalties : 
DECX m Source code included 
STA SPO,X = Fault free operation 


an QH @ Ideal for process control E28 Precatunes 


STA SPO,X @ Timing control provided 
LDA #SFF TRUE flag @ Low interrupt overhead 
BRA NUMXT+2 w Inter-task messages 


FCB 4 DROP Va ee 
FCC 'DRO' : ‘ Procedures 
FDB NUM8-6 link to <NUMBER> Options: 

DROP IDX SP 
INCX m Resource Manager 


INCX = Buffer Manager 
STX SP 


@ Integer Math Libra AMX is TM of KADAK Prod 
2 JMP NEXT g £: CP/M-80 is TM of pens aeaertn Gai: 


IBM, PC DOS are TM of IBM Corp. 
FCB 2 ce m= Language Interfaces : 


Fcc ‘ce ! 
FDB DROP-6 link to DROP C Pasca 


PL/M. Fortran AMX for 8080 $ 800 US 
CCH IDX SP 8086 950 


INCX mw DOS File Access : 6809 950 


A GET+1 
ea con x CP/M-80 68000 1600 


STA GET+2 IBM PC DOS Manual (specify processor) 75 
STX SP 
CLRX get the byte 


JSR GET Zi KADAK Products Ltd. (604) 734-2796 


LDX SP Telex: 04-55670 
206-1847 W. Broadway, Vancouver, B.C.,Canada V6J1Y5 





Circle no. 295 on reader service card. 








(continued on next page) 
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STA SPO,X 
CLRA 

DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 1 

ECC’ * 8.8 
FDB CFCH-6 
LDX SP 
LDA SPO,X 
INCX 

STA GET+1 
LDA SPO,X 
STA GET+2 
STX SP 
LDX #1 
JSR GET 
LDX SP 
STA SPO,X 
CLRX 

JSR GET 
LDX SP 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 2 
FCC *pPe * 
FDB FTCH-6 
LDX SP 
LDA #DP 
DECX 
STA SP0O,X 
CLRA 
DECX 
STA SP0O,X 
STX SP 
JMP NEXT 


DP2 


FCB 4 

FCC ‘HER' 
FDB DP2-6 
JMP DOCOL 
FDB DP2 
FDB FTCH 
FDB EXIT 


HERE 


FCB 3 
FCC ‘NOT' 


Listing Two 


FORTH AT SEA 


Listing One (Listing continued, text begins on page 40.) 


zero high byte 


@ 
link to C@ 


get low byte 


get high byte 


DP 
link to @ 
push address of DP to stack 


this routine knows that DP is on 
page zero 


HERE 


Link to DP 


NOT 
End Listing One 


RK KK HK K ERK KKK KKK ERK IKE KKK KKEKKEKKKKKKKK KAKA KKK 


RAFOS FORTH V1.0 
ot RE 82 OL. 2 


+e + + + * + BH 


(C) Copyright 1986, Everett Carter. All rights reserved. 


This FORTH is a subset of the FORTH-79 standard. 
Some changes have been made in order to save on 
space in the limited memory of the float. 


26 March 1986 


+e + + * H+ HF + HH HB 


RK KK KKK KK RHI KKK KEK KEK KKK IKK KEK KEK KRIEKEKKRAKKH MRK KKM K KA KKK KK RK 


* 


ROM EQU $1000 
ROM1 EQU $1800 
x 

ORG ROM 
. 
CR EQU SOD 
LF EQU SOA 
BL EQU $20 
BS EQU $08 
DEL EQU S7F 
a 
DDR EQU 4 
* 
PORTA EQU 0 
PORTB EQU 1 
PUT EQU PORTB 
* 
INITSP EQU S7F 
STACK EQU INITSP-5 
MEMSIZ EQ $2000 
x 
SPO EQU SOFOO 
RPO EQU SOE00 
TIB EQU $O0D80 
* 
88 


ROM #2 start address 
ROM #1 start address 


CARRIAGE RETURN 
LINE FEED 

BLANK 

Back Space 
Delete 


DATA DIRECTION REGISTER OFFSET 


I/O PORT 0 
I/O PORT 1 
SERIAL I/O PORT 


INITIAL STACK POINTER VALUE 
TOP OF STACK 
MEMORY ADDRESS SPACE SIZE 


x 

* 

* RAM VARIABLES 
x 

* 

ATEMP EQU- $10 
XTEMP EQU- $11 
GETR EQU $12 
COUNT EQU- $16 
CHAR EQU $17 
* 

BYTCNT EQU- SI1E 
WTIME EQU $20 
* 

x 

PH EQU $21 
PL EQU $22 
TEMPA  EQU $23 
TEMPB = EQU $24 
QH EQU $25 
QL EQU $26 
TEMP EQU $27 
TERM EQU $28 
* 

* 

IN EQU $29 
OUT EQU $2A 
COUNTR QU $2B 
DP EQU $2C 
START  EQU $2E 
*x 

*x 

IP EQU $30 
RP EQU $32 
SP EQU $33 
BASE EQU $34 
* 

USER EQU $35 
FENCE QU 0 
STATE QU 2 
FORTH  EQU 4 
CONTEXT EQU 6 
CURRENT EQU 8 
HID EQU SOA 
* 

* 

x 

x 

DOCOL EQU $80 
DOCOL1 EQU DOCOL 
NEXT EQU $009E 
NEXT1 EQU SOOCE 
LOAD EQU $00D1 
GET  EQU SOODS 
TYPE EQU $OODF 
FIN6 £EQU $0116 
BRAN QU $01A9 
ZBRAN EQU $19D2 
ZBREX EQU ZBRAN+S12 
EXIT EQU $19F8 
EXE7 QU $1A10 
INLINE EQU $1A22 
EMIT EQU $1A79 
BL2 QU $1A8D 
WORD EQU $1AA4 
MPY16 EQU $1AFD 
NUM8 EQU $1B27 
DROP QU $1BBE 
CFCH EQU $1BCC 
FTCH EQU $1BF2 
DP2  EQU $1C1D 
HERE EQU $1C34 
NOT3 EQU $1C42 
ONEP QU $1C5B 
HLD3. EQU $178 
DOUSE EQU SIC7A 
STAS EQU $1C91 
CON7 EQU $1c9B 
CUR7 EQU $1CAS 
FORS EQU SICAF 
STO EQ $1cB9 
CSTO EQU $1CE4 
COMA EQU $1D04 
CCOMA EQU $1D37 
DUP3 QU $1D55 
PLSTO EQU $1D75 
LAT6 EQU $1DAE 
ALLS EQU $1DBE 
LIT3 EQU $1DCC 
SWAP QU $1F07 
CRE6 EQU S1FDE 
x 

* 

LOK EQ S$1E53 
OK  EQU LOKtl 


* 


TEMP USED IN PUTDEC 

INDEX TEMPORARY 

PICK & DROP TEMPORARY 

NUMBER OF BITS LEFT TO get/send 
Current input/output character 


bytcnt. 
TIMER INTERRUPT FROM WAIT STATE 


MISC SCRATCH AREAS 


Where FORTH will look for input 


The initial Dictionary pointer 
The start up vector 


THE FORTH INSTRUCTION POINTER 
THE RETURN POINTER OFFSET 
THE STACK POINTER OFFSET 


The space for USER variables 
USER + 0 

USER + 2 

USER + 4 

USER + 6 

USER + 8 

USER + SOA 


List of previous FORTH words (ROM 1) 


DOCOL 
NEXT 


TYPE 
<FIND> 


ZBRANCH 


EXIT 
EXECUTE 


EMIT 
BL 
WORD 


<NUMBER> 
DROP 
c@ 


DP 
HERE 
NOT 
1+ 


DOUSE 
STATE 
CONTEXT 
CURRENT 
FORTH 


Cc! 


DUP 
+! 
LATEST 


LIT 
SWAP 
CREATE 
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* 


OUTER EQU $1E57 

* 

COLD EQU $1EAS5 
WARM EQU S1EE6 
GETC EQU $1F43 
GETCHAR EQU GETC 
PUTC EQU S1F7A 
OUTCHAR EQU PUTC 
WAIT EQU S1FA8 
DELAY EQU WAIT 
CRLF EQU $1FC3 


* 


RESET EQU COLD 
* 


Be HRI TT IT ITI KITT RIT IIIT ITT KIRKE IKI KKK AKER REE EEE KKK 
* 


QUES LDA DP 
STA GET+1 
LDA DP+1 
STA GET+2 
IDX #1 
JSR GET 
CMP #$80 
BNE QERR 

QEXIT IDX SP 

® 


checks for errors at end of OUTER 


= buffer end ? 


H1 EQU LOK/$100*$100 
L EQU LOK-H1 
H EQU LOK/$100 


IDA #L 

DECX 

STA SPO,X 

LDA #H 

DECX 

STA SPO,X 

STX SP 

LDA START 

STA IP 

LDA START+1 

STA IP+1 

JMP NEXT 
QERR LDA DP 

STA LOAD+1 

LDA DP+1 

STA LOAD+2 

CLRX 

JSR GET 

INCA 

INCA 

JSR LOAD 

TAX 

LDA #$3F A='2° 

JSR LOAD 

LDX SP 

LDA DP+1 

DECX 

STA SPO,X 

LDA DP 

DECX 

STA SPO,X 

STX SP 

JMP WARM 


FCB 4 QUIT 

FCC ‘QUI' 

FDB CRE6-6 
QUIT BRA QEXIT 
* 


link to CREATE 


FCB 6 TOGGLE 
FCC. ;* TOG’ 
FDB QUIT-6 
TOG6 IDX SP 
INCX drop high byte 
LDA SPO,X 
INCX 
STA ATEMP 
LDA SPO,X 
INCX 
STA LOAD+1 
STA GET+1 
LDA SPO,X 
INCX 
STX SP 
STA LOAD+2 
STA GET+2 
CLRX 
JSR GET 
EOR ATEMP 
JSR LOAD 
JMP NEXT 


link to QUIT 


get addr 


FCB 9 IMMEDIATE 
FCC ‘IMM 
FDB TOG6-6 
IMM9 JMP DOCOL 
FDB LAT6 
FDB LIT3 
FDB $80 
FDB TOG6 
FDB EXIT 


link to TOGGLE 


(continued on next page) 
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TOTAL CONTROL 
with LMI FORTH™ 


For Programming Professionals: 


an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 


For Development: 
Interactive Forth-83 Interpreter/Compilers 


e 16-bit and 32-bit implementations 

Full screen editor and assembler 

Uses standard operating system files 

400 page manual written in plain English 

Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 


For Applications: Forth-83 Metacompiler 


e Unique table-driven multi-pass Forth compiler 

¢ Compiles compact ROMable or disk-based applications 

e Excellent error handling 

e Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

e Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

e No license fee or royalty for compiled applications 


For Speed: CForth Application Compiler 


e Translates “high-level” Forth into in-line, optimized 
machine code 
e Can generate ROMable code 


Support Services for registered users: 


e Technical Assistance Hotline 
e Periodic newsletters and low-cost updates 
e Bulletin Board System 


Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 


ay ; 

Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 


Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 

France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 

Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 

Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 





Circle no. 106 on reader service card. 


89 


* 


DFND 


ZERO 


TWOP 


LBRAK 


90 


FCB 5 

FCC *=FI* 
FDB IMM9-6 
JMP DOCOL 
FDB BL2 
FDB WORD 
FDB CON7 
FDB FTCH 
FDB FITCH 
FDB FIN6 
FDB EXIT 


FCB 5 

FCC. * COU’ 
FDB DFND-6 
JMP DOCOL 
FDB DUP3 
FDB ONEP 
FDB SWAP 
FDB CFCH 
FDB EXIT 


FCB 1 

Bie Ot 
FDB COU5-6 
LDX SP 
CLRA 

DECX 

STA SPO,X 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 1 

Pe ese 
FDB ZERO-6 
LDX SP 
LDA #1 
DECX 

STA SPO,X 
DECX 

CLRA 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 1 

FO. 2 5 
FDB ONE-6 
LDX SP 
LDA #2 
DECX 

STA SPO,X 
CLRA 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 2 

POG 82k? 
FDB TWO-6 
LDX SP 
INCX 

LDA #2 
ADD SPO,X 
STA SP0O,X 
DECX 
CLRA 

ADC SPO,X 
STA SPO,X 
JMP NEXT 


FCB $81 
RCC 2 tt 
FDB TWOP-6 
JMP DOCOL 
FDB ZERO 
FDB STAS 
FDB STO 
FDB EXIT 


FCB i 

ROG * 
FDB LBRAK-6 
JMP DOCOL 
FDB LIT3 
FDB $CO 

FDB STAS 
FDB STO 

FDB EXIT 


FCB 11 
FCC "DEF 
FDB RBRAK-6 


-FIND 


link to IMMEDIATE 


COUNT 


link to -FIND 


0 


link to COUNT 


1 


link to 0 


2 
link to-1 


2+ 


Link £6:.2 


point to low 


point to high 
A=0 note carry 
is not affected 


[ (IMMEDIATE) 


link to 2+ 


] 
link to [ 


DEFINITIONS 


link to ]} 


FORTH AT SEA. 


Listing One (Listing continued, text begins on page 40.) 


DEFS 


PLUS 


MINUS 


UMULT 


SEC 
& 


DIV16 


DBEG 


JMP DOCOL 
FDB CON7 
FDB FTCH 
FDB CUR7 
FDB STO 
FDB EXIT 


FCB 1 

PUG tes 
FDB DEFS-6 
LDX SP 
LDA SPO,X 
INCX 

STA PH 
LDA SPO,X 
INCX 

STX SP 
INCX 

ADD SPO,X 
STA SPO,X 
LDX SP 
LDA PH 
ADC SPO,X 
STA SPO,X 
JMP NEXT 


FCB 1 

FCO f=! 
FDB PLUS-6 
LDX SP 
LDA SPO,X 
INCX 

STA PH 
LDA SPO,X 
INCX 

STA PL 
STX SP 
INCX 

LDA SPO,X 
SUB PL 
STA SP0O,X 
LDX SP 
LDA SPO,X 
SBC PH 
STA SPO,X 
JMP NEXT 


FCB 2 

eGe TUF. * 
FDB MINUS-6 
IDX SP 
LDA SPO,X 
INCX 

STA PH 
LDA SPO,X 
INCX 

STA PL 
LDA SPO,X 
INCX 

STA QH 
LDA SPO,X 
STA QL 
STX XTEMP 
JSR MPY16 
LDX XTEMP 
LDA QL 
STA SPO,X 
LDA QH 
DECX 

STA SPO,X 
LDA TEMPB 
DECX 

STA SPO,X 
LDA TEMPA 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


EQU PH 


LDA SEC+2 
LDX SEC 
STX SEC+2 
LSLA 

STA SEC 
LDA SEC+3 
LDX SEC+1 
STX SEC+3 
ROLA 

STA SEC+1 
IDA #$10 
STA TEMP 
ROL SEC+2 
ROL SEC+3 
LDA SEC+2 
SUB QL 


link to + 


link to - 


link to DEFINITIONS 


point to low on stack 


point to low on stack 


push low word 


push high word 


Dividend: 


(H to L) 


PL, PH, TEMPB, TEMPA 
(SEC +1,+0,+3, +2) 


Divisor is QH,QL 


DSKIP 


UDMD 


STOD 


SPOS 
SEXIT 


PAD 


LSHP 


TAX 

LDA SEC+3 
SBC QH 

BCS DSKIP 
STX SEC+2 
STA SEC+3 
SEC 

BRA DSKIP+1 
CLO 


ROL SEC 
ROL SEC+1 
DEC TEMP 
BNE DBEG 
RTS 


FCB 5 

FCC 'U/M' 
FDB UMULT-6 
IDX SP 
LDA SPO,X 
INCX 

STA QH 
LDA SPO,X 
INCX 

STA QL 
LDA SPO,X 
INCX 

STA SEC+1 
LDA SPO,X 
INCX 

STA SEC 
LDA SPO,X 
INCX 

STA SEC+3 
LDA SPO,X 
STA SEC+2 
STX SP 
BSR DIV16 
LDX SP 
LDA SEC+2 
STA SPO,X 
LDA SEC+3 
DECX 

STA SPO,X 
LDA SEC 
DECX 

STA SPO,X 
LDA SEC+1 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 4 

FCC :*s->* 
FDB UDMD-6 
IDX SP 
LDA SPO,X 
TSTA 

BPL SPOS 
LDA #SFF 
BRA SEXIT 
CLRA 

DECX 

STA SPO,X 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 3 

FCC *PAD‘ 
FDB STOD-6 
JMP DOCOL 
FDB HERE 
FDB LIT3 
FDB $0044 
FDB PLUS 
FDB EXIT 


FCB 2 

ce. <s* 
FDB PAD-6 
JMP DOCOL 
FDB PAD 
FDB HLD3 
FDB STO 
FDB EXIT 


FCC ‘OVE' 
FDB LSHP-6 
LDX SP 
INCX 

INCX 

LDA SPO,X 
INCX 


Quotient (H,L) is 
SEC+1, SEC 
Remainder (H,L) is 
SEC+3, SEC+2 
U/MOD 


link to U* 


divisor to Q 


high word to P 
(SEC +1, +0) 


low word to TEMPA/B 
(SEC +3, +2) 


push remainder 
(HL: SEC+3, +2) 


push quotient 
(HL: SEC+1, +0) 


S->D 


link to U/MOD 


PAD 


link to S->D 


<# 
link to PAD 


OVER 


link to <# 
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STA ATEMP 

























































LDA SPO,X link to HOLD 
IDX SP 
DECX TOR 
STA SPO,X 
LDA ATEMP 
DECX FDB UDMD 
STA SP0O,X FDB RTO 
STX SP FDB SWAP 
JMP NEXT FDB TOR 
FDB UDMD 
FCB 2 #> FDB RTO 
FCC '#> ' EXIT 
FDB OVER-6 link to OVER 
SPGR JMP DOCOL FCB 4 BASE 
FDB DROP FCC ‘BAS' 
FDB DROP FDB MDM5-6 link to M/MOD 
FDB HLD3 BAS4 JMP DOCOL 
FDB FITCH FDB LIT3 
FDB PAD FDB BASE 
FDB OVER FDB EXIT 
FDB MINUS 


































































FDB EXIT FCB 6 SMUDGE 
FCC ‘'SMuU' 
= tie >R FDB BAS4-6 link to BASE 
FDB SPGR-6 link to #> eet ee ae 
FDB LAT6 
TOR LDX SP 
LDA SPO,X singer 
ee é FDB $0020 
FDB TOG6 
STA ATEMP FDB EXIT 
LDA SPO,X 
INCX FCB 3 ABS 
STX SP FCC 'ABS' 
LDX RP FDB SMUDG-6 link to SMUDGE 
DECX 
ABS LDX SP 
STA RPO,X LDA SPO,X 
LDA ATEMP TSTA 
DECX 
STA RPO,X 
STX RP 


JMP NEXT 




















FCB 2 R> 

















































Foc. ‘> * 
STA SPO,X 
FDB TOR-6 link to >R : 
ssn ae ABXIT JMP NEXT 
LDA RPO,X FCB 2 0< 
INCX FCC '0< ' 
i aor x FDB ABS-6 link to ABS 
’ ZLESS LDX SP 
INCX 
LDA SPO,X 
STX RP 
ee oe TSTA 
BPL ZLPOS 
DECX 
LDA #SFF 
STA SPO,X BRA ZLXIT 
LDA ATEMP 
oe ZLPOS CLRA 
ZLXIT STA SPO,X 
STA SPO,X INCX 
STX SP 
Sy on STA SPO,X 
JMP NEXT 



























FCB 2 RG 

















FCB 2 O= 












FCC 'R@ ' FCC 'O= ' 
Si ~~ er link to R> FDB 2ZLESS-6 link to 0< 
ZEQ LDX SP 
LDA RPO,X pop high LDA SPO,X 
INCX INCX 
STA ATEMP ORA SPO,X 
LDA RPO,X pop low BNE ZEN 
a SP LDA #SFF 
BRA ZEXIT 

STA SPO,X push low ZEN CLRA 
LDA ATEMP ZEXIT STA SPO,X 
DECX DECX 
STA SPO,X push high STA SPO,X 
STX SP JMP NEXT 
JMP NEXT 



































































FCB 3 ROT OB a < 
FCC ‘ROT! FCC '< 
FDB RFTCH-6 link to R@ FDB 2EQ-6 link to 0= 
LESS JMP DOCOL 
ROT  JMP DOCOL 
FDB MINUS 
FDB TOR 
FDB ZLESS 
ate FDB EXIT 
FDB RTO 
FDB SWAP 
FCB 1 > 
FDB EXIT ete 
FDB LESS-6 link to < 
See eal: ee GREAT JMP DOCOL 
ae ae FDB SWAP 
FDB ROT-6 link to ROT Be eae 
HOLD  JMP DOCOL = 
FDB LIT3 
FDB $FFFF (-1) 









1 


FDB FCC ‘= ' 


HLD3 
















FDB GREAT-6 link to > 
FDB HLD3 EQUAL JUMP DOCOL 
FDB FITCH 
FDB MINUS 
FDB CSTO 
FDB EXIT FDS 2EO 
FDB EXIT 


(continued on next page) 
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... Software Developers .. . 
Develop your software to work with most of the 
desktop printers on the market? 


Now, CARDINAL POINT INCORPORATED has published 

Volume || of the PROGRAMMERS’ HANDBOOK OF COM- 

PUTER PRINTER COMMANDS II, for models as new as 1985. 

Volume |! compliments (but does not replace) book one 

and adds more detailed ESCAPE and Control Codes se- 

quences for more printers by the leading printer manufac- 

turers. Each book is 5%” x 82", spiral bond, and contains 

an easy to use table-format. Codes are listed in text form 

with hex and decimal equivalents and detailed function 

description. 

These two volumes should be a part of your reference library. 
1. Volume | (models through 1984) $37.95 
2. Volume !l (models as new as 1985) 
3. 2 book set (Vols. | & il) 

(Indiana residents add 5% sales tax. 
Please include $2.50 shpg/hdig) 
TO ORDER CALL: 
1-800-628-2828 ext. 534 (24 Hrs) 

Quantity Orders or Dealers may call the number below collect. For 
detailed information, call or write: 


Cardinal» Point. 


INCORPORATED 


ite eo 6.6 a 6,0: '0. 6 416 6.4 4% 


ee 





P.O. Box 596, Ellettsville, IN 47429 eee 
Ee (812) 876-7811 (M-F, 9-5 EST) VISA 
’ Se esrss 


We accept MC, VISA, MO-same day shpg. 
COD — $2 extra. CK’s — Allow extra 14 days. 


Circle no. 246 on reader service card. 


Renee 
ASSEMBLERS 


Assemblers now available include: 


Chip 
1802/1805 
9900/9995 
6500/01/02 
6800/01/02 
6800/08/10 280 
8048/49/50/42 Z8000 8085 
65C02/C102/C112 6803/08 6301 


RELATIONAL MEMORY SYSTEMS, INC. : 
P O. Box 6719 
San Jose, California 95150 


Chip 
HD64780 
NSC8&00 
F8, 3870 
Z8 


Chip 
8051 
6804 
6805 
6809 
6817 


Tel: (408) 265-5411 
CPM80, MPM, ISIS Versions Available 





Circle no. 120 on reader service card. 





Incredible 
SwyitWare!”™ 


It is not possible in an ad to really explain this 
Apple II (e or c) product which outperforms 
all other software in speed and simplicity. It 
does no-frills word processing, information 
retrieval, telecommunications and many 
other tasks. Reviewers call it “foolproof and 
frustration free” and “blindingly fast.” 

It appeals to beginners and 
experts. Jef Raskin, 
who invented the Macintosh and who later 
created SwyftWare, has written up the 
hows and whys of this product. Please 
write for a copy. No charge. Or 
order SwyftWare and see for 
yourself. At $89.95 and 
with a 30-day refund 
policy, there's no risk. 


US 800/982-5600 CA 800/562-7400 


Information Appliance 
1014 Hamilton Ct., Menlo Park, CA 94025 
Spe 
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FORTH AT SEA 


Listing Two (Listing continued, text begins on page 40.) 


SIGN 


NEG6 


PIMI 


AND3 


92 


FCB 4 

FCC ‘SIG' 
FDB EQUAL-6 
JMP DOCOL 
FDB ZLESS 
FDB ZBRAN 
FDB $0008 
FDB LIT3 
FDB $002D 
FDB HOLD 
FDB EXIT 


FCB 6 

FCC 'NEG' 
FDB SIGN-6 
LDX SP 
LDA SPO,X 
COMA 

STA SPO,X 
INCX 

LDA SPO,X 
NEGA 

STA SPO,X 
JMP NEXT 


FCB 2 

FCC *+—* 
FDB NEG6-6 
JMP DOCOL 
FDB ZLESS 
FDB ZBRAN 
FDB $0004 
FDB NEG6 
FDB EXIT 


FCB 1 

POG "ai 
FDB PIMI-6 
JMP DOCOL 
FDB BAS4 
FDB CFCH 
FDB MDMS 
FDB ROT 
FDB LIT3 
FDB $0009 
FDB OVER 
FDB LESS 
FDB ZBRAN 
FDB $0008 
FDB LIT3 
FDB $0007 
FDB PLUS 
FDB LIT3 
FDB $0030 
FDB PLUS 
FDB HOLD 
FDB EXIT 


FCB 2 

FCC "GR * 
FDB SHARP-6 
IDX SP 
LDA SPO,X 
INCX 

INCX 

ORA SPO,X 
STA SPO,X 
DECX 

LDA SPO,X 
INCX 

INCX 

ORA SPO,X 
STA SPO,X 
DECX 

STX SP 
JMP NEXT 


FCB 3 

FCC ‘AND‘ 
FDB OR2-6 
LDX SP 
LDA SPO,X 
INCX 

INCX 

AND SPO,X 
STA SPO,X 
DECX 

LDA SPO,X 
INCX 

INCX 

AND SPO,X 
STA SPO,X 
DECX 

STX SP 
JMP NEXT 


SIGN 


link to = 


NEGATE 


link to SIGN 


te 


link to NEGATE 


# 


link to +- 


OR 
link to # 


AND 


link to OR 


XOR3 


DDUP 


SHRPS 


DOT 


COMP 


SEMI 


COLON 


FCB 3 XOR 
FCC 'XOR' 

FDB AND3-6 
LDX SP 

LDA SP0O,X 
INCX 

INCX 

EOR SPO,X 
STA SPO,X 
DECX 

LDA SPO,X 
INCX 

INCX 

EOR SPO,X 
STA SP0O,X 
DECX 

STX SP 

JMP NEXT 


link to AND 


FCB 4 DDUP 
FCC 'DDU' 
FDB XOR3-6 
JMP DOCOL 
FDB OVER 
FDB OVER 
FDB EXIT 


FCB 2 #S 
FCC. *4$s °° 
FDB DDUP-6 
JMP DOCOL 
FDB SHARP 
FDB DDUP 
FDB OR2 
FDB 2EQ 
FDB ZBRAN 
FDB $FFF6 
FDB EXIT 


FCB 1 ° 
2 
FDB SHRPS-6 
JMP DOCOL 
FDB DUP3 
FDB DUP3 
FDB ABS 

FDB STOD 
FDB LSHP 
FDB SHRPS 
FDB ROT 

FDB SIGN 
FDB SPGR 
FDB TYPE 
FDB DROP 
FDB BL2 

FDB EMIT 
FDB EXIT 


link to #S 


FCB 7 COMP I LE 
FCC *COM' 
FDB DOT-6 
JMP DOCOL 
FDB RTO 


link to. 


FDB TWOP 
FDB TOR 

FDB FTCH 
FDB COMA 
FDB EXIT 


FCB $81 ; 
oS ee 
FDB COMP-6 
JMP DOCOL 
FDB COMP 
FDB EXIT 
FDB SMUDG 
FDB LBRAK 
FDB EXIT 


FCB 1 : 
FOG #5 °° 
FDB SEMI-6 
JMP DOCOL 
FDB CUR7 
FDB FITCH 
FDB CON7 
FDB STO 
FDB CRE6 
FDB SMUDG 
FDB COMP 
JMP DOCOL 
FDB RBRAK 
FDB EXIT 


link to ; 


FCB $81 : 
FCB $27 


link to XOR 


link to DDUP 


(IMMEDIATE) 
link to COMPILE 


(IMMEDIATE) 


TICK 


DOVAR 


VAR8 


DOCON 


CONS 


MULT 


BCOM9 


BEGN 


FCC ° ‘ 
FDB COLON-6 
JMP DOCOL 
FDB DFND 
FDB ZBRAN 
FDB $0006 
FDB DROP 
FDB EXIT 
FDB QUES 


LDX SP 

LDA NEXT1+2 
ADD #3 

DECX 

STA SP0O,X 
LDA NEXT1+1 
ADC #0 

DECX 

STA SPO,X 
STX SP 

JMP NEXT 


FCB 8 

FCC 'VAR‘ 
FDB TICK-6 
JMP DOCOL 
FDB CRE6 
FDB LIT3 
FDB $00CC 
FDB CCOMA 
FDB COMP 
FDB DOVAR 
FDB TWO 
FDB ALLS 
FDB EXIT 


LDA NEXT1+2 
ADD #3 

STA GET+2 
LDA NEXT1+1 
ADC #0 

STA GET+1 
IDX #1 

JSR GET 


LDX SP 
DECX 

STA SPO,X 
STX SP 
CLRX 

JSR GET 
LDX SP 
DECX 

STA SPO,X 
STX SP 
JMP NEXT 


FCB 8 

FCC 'CON' 
FDB VAR8-6 
JMP DOCOL 
FDB CRE6 
FDB LIT3 


FDB $00CC 
FDB CCOMA 
FDB COMP 
FDB DOCON 
FDB COMA 
FDB EXIT 


FCB i 

3 * ah eae 
FDB CON8-6 
JMP DOCOL 
FDB UMULT 
FDB DROP 
FDB EXIT 


FCB $8S 
FCC” [Co* 
FDB MULT-6 
JMP DOCOL 
FDB TICK 
FDB COMA 
FDB EXIT 


FCB $85 

FCC 'BEG' 
FDB BCOM9-6 
JMP DOCOL 
FDB HERE 
FDB EXIT 


FCB $85 
FCC 'AGA' 
FDB BEGN-6 


link to : 


low byte of W 


high byte of W 


VARIABLE 
Link to“ 


compile a jump 
to DOVAR 


put W+2 into GET 


get low byte of 
constant 


then the high byte 


CONSTANT 


link to VARIABLE 


compile a jump 
to DOCON 


* 


link to CONSTANT 


[COMPILE] IMMEDIATE 
link to * 
BEGIN IMMEDIATE 


link to [COMPILE] 


AGAIN IMMEDIATE 


link to BEGIN 
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AGAIN JMP DOCOL 


UNTIL IMMEDIATE 
link to AGAIN 
UNTIL JMP DOCOL 


FCB $82 IF IMMEDIATE 
link to UNTIL 
IF2 JMP DOCOL 


FCB $84 
FCC ‘THE’ 
FDB IF2-6 


THEN IMMEDIATE 
link to IF 
THEN 


ELSE IMMEDIATE 
link to THEN 
ELSE 


FDB SWAP 
FDB THEN 
FDB EXIT 


FCB $85 
FCC ‘WHI' 
FDB ELSE-6 
WHILE JMP DOCOL 
FDB IF2 
FDB EXIT 


WHILE IMMEDIATE 


link to ELSE 


FCB $86 

FCC ‘REP’ 

FDB WHILE-6 
REPET JMP DOCOL 

FDB TOR 

FDB AGAIN 

FDB RTO 

FDB THEN 

FDB EXIT 


REPEAT IMMEDIATE 


link to WHILE 


FCB 4 
FCC re we 
FDB REPET-6 
BDOTQ JMP DOCOL 
FDB RFTCH 
FDB COUS 
FDB DUP3 
FDB ONEP 
FDB RTO 
FDB PWS 
FDB TOR 
FDB TYPE 
FDB EXIT 


<.%> 


link to REPEAT 


FCB 3 

FCC *TIB* 
FDB BDOTQ-6 
JMP DOCOL 
FDB LIT3 
FDB TIB 

FDB EXIT 


TIB 


link to <."> 
TIB3 


FCB 3 

FCC °*>IN‘ 

FDB TIB3-6 
FRIN JMP DOCOL 

FDB LIT3 

FDB IN 

FDB EXIT 


>IN 


link to TIB 


FCB 7 
FCB $27 


* STREAM 


(continued on next page) 
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The Best 


Debuggers. 
Period. 


DSD86, The PC-DOS Debugger 
DSD87, The PC-DOS Debugger with 8087 Support. 99.95 
DSD80, The CP/M Debugger 





SoftAdvances 


P.O. Box 49473 e Austin, Texas 78765 ® (512) 478-4763 
1-800-232-8088 





Circle no. 83 on reader service card. 


Mac lutor 


The Macintosh Programming Journal 














Simply the finest monthly technical Journal 
available for the Macintosh. Contains no 
fluff, only programs in C, Asm, Pascal, 
Basic & Forth. US 3rd class: $30; US 1st 
class, or Canada: $45. All Overseas: $60. 
(714) 630-3730. MacTutor 


Today! 


Placentia, CA. 92670 
Circle no. 187 on reader service card. 
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- Now! Automatic time and 
_ datestamping for — oT 


: Bs 


| CRIN 2.2. 


atio® 1S 
" an for ead by 
noite anh COM, 


e 
Pat manae® 


» gtalaey or 
a ied with Lt 


erasing the 
wrong files! 


Back up _ 
files by time _ 
and date! 


“DateStamper... 
is areal winner.”’ 
Bruce Morgen, Users 

Guide, Jul-Aug. 1985 


Write or call for 
further information 


(714) 659-4432 


Circle no. 193 on reader service card. 


The MasterFORTH  pro- 
gramming system gets your 
application running in the 
least amount of time. 
How? With a built-in 
user interface. With 
an interactive de- 
bugger. With a res- 
ident assembler-linkage is instantaneous. 


MasterFORTH’s target application generation system 
(TAGS) can produce a ROM-able image in seconds. Its 
unique symbol table identifies seldom-used code so yOu 
can pack the most power in the least amount of memory. 


Choose your development system. We support the IBM 
PC family, Apple’s Macintosh, CP/M systems and others. 
Need to program a controller from your IBM PC? No prob- 
lem. We have cross-develooment sources for most popular 
microprocessors. You can even generate a MasterFORTH 
system for your target application, add aterminalandrun it 
there. Forth is widely used in industry and aerospace for 
robotics and machine control. 


Call or write us for details. M | SS ROMOTION 


8726 S. Sepulveda BI., #A174 (213) 821-4340 
Los Angeles, CA 90045 


Circle no. 209 on reader service card. 
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FORTH AT SEA 


Listing Two 


(Listing continued, text begins on page 40.) 


TSTRM 


DOAGIN 


BLOP 


LOOPS 


LOOP 


FCC .°ST¥* 
FDB FRIN-6 
JMP DOCOL 
FDB TIB3 
FDB FRIN 
FDB CFCH 
FDB PLUS 
FDB EXIT 


FCB 4 

FCC ‘'<DOo' 
FDB TSTRM-6 
IDA #4 

STA COUNTR 
ADD SP 

STA SP 

LDX SP 
DECX 

LDA SP0O,X 
STX SP 

LDX RP 
DECX 

STA RPO,X 
STX RP 

DEC COUNTR 
BNE DOAGIN 
LDA #4 
ADD SP 

STA SP 

JMP NEXT 


FCB 6 
Fcc °<i0’ 
FDB BDO-6 
CLR PH 
LDA #1 
STA PL 
LDX RP 
INCX 

LDA PL 
ADD RPO,X 
STA RPO,X 
DECX 

LDA PH 
ADC RPO,X 
STA RPO,X 
INCX 

LDA RPO,X 
INCX 

INCX 

SUB RPO,X 
LDX RP 
LDA RPO,X 
INCX 

INCX 

SBC RPO,X 
EOR PH 
BMI LAGIN 
INCX 

INCX 

STX RP 
JMP ZBREX 
JMP BRAN 


FCB 7 

FCC. *<+L’ 
FDB BLOP-6 
LDX SP 
LDA SPO,X 
INCX 


STA PH 
IDA SPO,X 
INCX 

STA PL 
STX SP 
BRA LOOPS 


FCB $82 

FCC -*DO ° 
FDB BPLOP-6 
JMP DOCOL 
FDB COMP 
FDB BDO 

FDB HERE 
FDB EXIT 


FCB $84 
FCC *100' 
FDB DO-6 
JMP DOCOL 
FDB COMP 
FDB BLOP 
FDB HERE 
FDB MINUS 


link to >IN 


<DO> 


link to 'STREAM 


make 2 artificial pops 
move limit 
then index 


from SP 
to RP 


adjust SP 


<LOOP> 


link to <DO> 
set increment to 1 


increment index 
by value 
in P H/L 


test index-limit 


also check increment sign 
loop again if negative 


<+LOOP> 


link to <LOOP> 


set increment 
from the stack 


DO IMMEDIATE 


link to <+LOOP> 


LOOP IMMEDIATE 
Hnk- to: DO 
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FCB $85 +LOOP 


IMMEDIATE 


link to LOOP 


PLOOP JUMP DOCOL 


FCB 7? DNEGATE 


link to +LOOP 


DNEG7 LDA #3 


DNLP LDA SPO,X 


Tl 


ya 


ones complement 
COMA three bytes 
STA SPO,X 

INCX 

DEC COUNTR 

BNE DNLP 

LDA SPO,X twos complement 
NEGA the fourth 

STA SPO,X 

JMP NEXT 


FCB $81 I IMMEDIATE 
FCC" 
FDB DNEG7-6 
JMP DOCOL 
FDB COMP 
FDB RFTCH 
FDB EXIT 


link to DNEGATE 


End Listings 


SEPTEMBER ‘86 ISSUE THEME: 


ALGORITHMS 





Algorithms are the building blocks of a pro- 
gram—the logical steps taken To solve a prob- 
lem, independent of the detailed syntax of a 
programming language. 


Make Dr. Dobb’s Journal of Software Tools your 
algorithm for marketing success. Dr. Dobb’s of- 
fers a direct line of communication with the core 
of the computer marketplace: the professional 
programmer. 


Reach your target audience: call to reserve ad 
space now!! 


Robert Horton 
Advertising Director 
aoe 415-366-3600 


Dr. Dobb's Journal of 


Software Tools 


FOR THE PROFESSIONAL PROGRAMMER 


501 Galveston Drive, Redwood City, CA 94063 
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WORLD’S FIRST 
ASSEMBLER INTERPRETER 


Advanced Trace86™ 2.0 


Create .COM programs with BASIC-like com- 
mands: LOAD, SAVE, EDIT, LIST, RUN. 
Reloadable into AT86, complete with all 
labels, comments & variable names. 


Macro Assembler support-scan .MAP and .LST 
files for labels and variable names 


Full-screen symbolic tracing of any program. 


Powerful conditional breakpoint facilities, 
including hardware ‘‘button”’ support (if 
installed) 


“Screen save’ option, or use dual monitors 
Hex/decimal calculator & converter 
Best 8087/80286/80287 support on the market! 


And more... Priced at $175.00 


To order or request more information contact: 


4 Morgan Computing Co. Inc. 


(214) 245-4763 
PO. Box 112730, Carrollton, TX 75Oll 
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Up lo Your Ears 
In Alligators? 


If that sounds familiar, you need 
Write-Hand-Man", the multi- —_ 2,9 
function pop-up desktop Ge 
organizer that works 

neatly with existing soft- 

ware for CP/M" 2.2 and 

3.0 systems. Write-Hand- 

Man eliminates that 

swamped feeling with 

tools that will get you 

organized. Write-Hand- 

Man comes with a k\ 4 
4-function, floating-point, =. 4 A) S z 

14 digit Calculator — Notepad ~ NY x 

— Two-week Appointment Saree 

Book, File and Directory viewing — Phonebook 
with dialing — Cut and Paste — Key Redefinition — 
ASC II table. Even add your own applications. 


Clear the swamp from your desktop. 
Order Write-Hand-Man today. $49.95 


CA residents add 6.5% tax. Sorry, no 

credit cards or purchase orders. 

Specify: 8” or which 5” format 
CP/M 2.2 or 3.0 format 


30 day guarantee 


Poor Person 
Software 


Dept. 203 

3721 Starr King Circle 
Palo Alto, CA 94306 
(415) 493-3735 


™ Write-Hand-Man — Poor Person 
Software 
CP/M — Digital Research 
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FORTH WINDOWS 


Listing One (Text begins on page 46.) 


file: WINDOW.BLK Block: 0 


cl 11/10/85 
window program 
by 
Craig A. Lindley 
Manitou Springs 
Colorado 
November 1985 


file: WINDOW.BLK Block: 1 


\ window: routines cl 11/10/85 


\ window load screen 
warning off 


dark 


- ( Compiling window package and demo program ) 


cr 
2 32 thru 


warning on 


—_—"—_——-:nrnrrk er ee 


file: WINDOW.BLK Block: 2 


\ case statement cl 11/10/85 


\ Dr. Charles Eakers Forth Dimensions Vol 2, Num 3 
?comp state @ not abort" Compilation only" ; 


 Pphire: .- <> abort" Bad CASE statement" 


: case ?comp csp @ !csp 4 ; immediate 
7. OF 4 ?pairs 
compile over compile = compile ?branch 
here 0 , compile drop 5 ; immediate 
endof 5 ?pairs compile branch here 0 , 


Swap >resolve 4 ; immediate 


: endcase 4 ?pairs compile drop 
begin sp@ csp @ <> 
while >resolve repeat 


csp ! ; immediate 


i 


file: WINDOW.BLK Block: 3 


\ window routines cl 11/10/85 
\ write count # of chars with attrib at cursor position 


code chra \ char/attrib count -- 


Cx pop ax pop ah bl mov \ get count in cx, attrib in bl 
bh bh xor 9 # ah mov \ char in al, func. code in ah 
si push 16 int si pop \ do video interrupt 
next 

end-code 


\ write 1 char with attrib at cursor - update cursor position 
code chrat+ \ char/attrib -- 


ax pop ah bl mov bh bh xor \ char in al, attrib in bl 
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1 # cx mov 9 # ah mov \ char in al, func. code in ah 


si push 16 int \ count=1, write char/attrib 
3 # ah mov 16 int dl inc 2 # ah mov 16 int 
si pop next \ inc cursor position 


end-code 


snes 


file: WINDOW.BLK Block: 4 


\ window routines cl 11/10/85 
\ read char and attrib at cursor position 
code rdchra \ -- char/attrib 


OQ # bh mov 8 # ah mov \ pg -0 func. code = 8 


si push 16 int si pop \ do video interrupt 
lpush \ char/attrib to stk 


end-code 


\ put char with attrib at x,y 
: putch \ x y char/attrib -- 


or at>.re> ft chra.: 


\ get char with attrib at x,y 
: getch \ x y -- char/attrib 


at rdchra ; 





file: WINDOW.BLK Block: 5 


\ window routines cl 11/10/85 
\ draw count # of chars/attrib starting at x,y 
: draw row \ x y char/attrib count -- 


>r >r at r> r> chra ; 


\ scroll specified window up n lines 
code scrlup \ xul yul xlr ylr cnt attrib -- 
bx pop bl bh mov di pop \ bh attrib si # of lines 
dx pop dl dh mov ax pop al dl mov \ dx has lr x y 

cx pop cl ch mov ax pop al cl mov \ cx has ul x y 

di ax mov si push bp push \ save regs 
6 # ah mov 16 int \ ax # of lines func. code ah 
bp pop si pop next \ restore forth's regs 


end-code 





file: WINDOW. BLK Block: 6 


\ window routines ci 11/10/85 

\ memory management support 

\ tell DOS to allociate memory bytes 

code calloc \ # bytes -- seg T 

bx pop 4 # cl mov bx cl shr \ -- maxp error code F 

bx inc 72 # ah mov 33 int \ int 21h func. code 48h 

u< if bx push ax push ax ax xor \ if C then error 
else ax push -1l # ax mov then lpush 

end-code 

\ tell DOS to free memory segment 


code free \ seg -- T 


(continued on page 98) 
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The new Wizard C version 3.0 sets new records for all out speed! 


; 3 ‘* .The compiler’s performance makes it 
| ? p p a 

It leaves other C compilers in the dust! When your project de i delat Gk sblous software deveinar 

pends on that last ounce of speed, choose Wizard. ment.” 


PC Tech Journal 

January, 1986 

‘“ Wizard's Rot the highest marks for 
support.” 


“The Wizard Compiler had excellent 
diagnostics; it would be easier writin? 


portable code with it than with any other 
compiler we tested.” 


Dr. Dobb's Journal 

August, 1985 

‘‘.written by someone who has been in 

the business a while. This especially 
shows in the documentation.” 

Computer Language 

February, 1985 





For MSDOS applications, we 
provide the most features of 
any C compiler, plus a full 
range of third party software: 
PANEL 
Greenleaf Libraries 
Essential Software Library 
PLINK86 
Pfix86plus 
Microsoft Assembler 3.0 


For stand-alone applications, 
we supply a ROM develop- 
ment package that carries 
your program all the way to 
Intel Hex files ready for a 
PROM burner. 





The following SIEVE benchmark was run without register vari- 


able declarations on an IBM/PC with 640K memory and an 8087. For debugging, the compiler 


Exec Time Code Size EXE Size emits full Intel debugging in- 
Wizard C3.0 : 6.8 130 7,766 formation including local sym- 
Microsoft TA s 186 7,018 bol and type information. 
Lattice 11.8 164 20,068 
Wizard C $450.00 
Fast executable code, with multiple levels of optimization. ROM Development Package $350.00 
Six memory Models, supporting up to 1 megabytye of code and data, Combined Package $750.00 
plus mixed model programming. 
Effective error diagnosis, including multiple source file cross-checking (617) 641-2379 


of function calls. 

A comprehensive runtime library, including fully portable C functions, 

MSDOS and 8086 functions. 

8086, 8087, 80186 and 80286 hardware support. Z R D 
Full Library Source Code included with package. SYSTEMS SOFTWARE, INC. 


ROM based application support, including a ROM development 41 Willow Court, Arlington, MA 02174 


package available to create Intel Hex files. 


Fully ANSI compatible ianguage features. Goutica 


3 
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FORTH WINDOWS 


Listi Ng One (Listing continued, text begins on page 46.) 


ax pop ax es mov \ -- error code F 


73 # ah mov 33 int \ int 21h func. code 49h 


u< if ax push ax ax xor \ if C then error 
else -1 # ax mov then lpush 


end-code 


i es 
file: WINDOW.BLK Block: 7 


\ window routines cl 11/10/85 
\ memory management support 


\ tell DOS to shrink or expand allociated memory segment 


code setblock \ # bytes -- T 


cS aX mov ax es mov \ -- Maxp error code F 
bx pop 4 # cl mov bx cl shr \ bx has # of paragraphs 
bx inc 74 # ah mov 33 int \ int 21h func. code 4Ah 
u< if bx push ax push ax ax xor \ if C then error 
else -1 # ax mov 

then lpush 


end-code 


rr emg eS oe 
file: WINDOW.BLK Block: 8 


\ window routines cl 11/10/85 


\ extended word fetch and store words 
\ fetch word from extended memory 
code e@ \ seg addr -- n 
bx pop es pop \ seg in es addr in bx 
es: 0 [bx] ax mov \ get the data on stk 
lpush 


end-code 


\ store word in extended memory 
code e! \ n seg addr -- 
bx pop es pop ax pop 
ax es: 0 [bx] mov \ store the data 

next 

end-code 

STUnSUENEEIEnSenemesaresmeeenee ae 
file: WINDOW.BLK Block: 9 


\ window routines cl 11/10/85 


\ read current cursor location 


code rdcur \ror xy 


si push 0 # bh mov 3 # ah mov \ int 10h func. code 3 
16 int si pop ah ah xor 
dl al mov ax push dh al mov 
lpush 
end-code 


re 
file: WINDOW.BLK Block: 10 


\ window routines cl 11/10/85 
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\ window control block (wcb) record layout 


0 constant ulx 2 constant uly upper left corner 


4 constant width 6 constant height width and height 


8 constant curx 10 constant cury current cursor pos 


12 constant oldx 14 constant oldy old cursor pos. 


16 constant bufseg 18 constant oldwcbseg seg storage 


OE ES Se te ae ah age = on 


20 constant attrib window attrib. 


22 constant record size \ size of record 

15 constant boarder \ boarder attribute 

hex 

b800 constant v_seg \ video memory start 
variable wcbseg \ current wcb seg 

decimal \ storage 


i ern ane ig a lp ge Bt es sy a es 
file: WINDOW.BLK Block: 11 


\ window routines cl 11/10/85 


\ extended memory fetch and store words 


\ store word n at addr in current web 
: wobseg! \ n addr -- 


webseg @ swap e! ; \ store at addr in web seg 


\ fetch word from addr in current web 
: wobseg@ \ addr -- n 
wcbseg @ swap e@ ; \ fetch from addr in web seg 


file: WINDOW.BLK Block: 12 


\ window routines cl 11/10/85 
\ window frame drawing routines 
: top 
ulx webseg@ uly wcbseg@ [ 201 boarder 256 * + ] literal putch 
ulx wcbseg@ 1+ uly wcbseg@ [ 205 boarder 256 * + ] literal 
width wcbseg@ draw row 
ulx webseg@ width wcbseg@ + 1+ uly wcbseg@ 
{ 187 boarder 256 * + ) literal putch ; 
: bottom 
ulx webseg@ uly wcbseg@ height wcbseg@ + 1+ 
{ 200 boarder 256 * + ] literal putch 
ulx webseg@ 1+ uly wcbseg@ height wcbseg@ + 1+ 
{ 205 boarder 256 * + ] literal width webseg@ draw row 
ulx webseg@ width wcbseg@ + 1+ uly wcbseg@ height webseg@ + 1+ 


{ 188 boarder 256 * + ] literal putch ; 


file: WINDOW.BLK Block: 13 


\ window routines cl 11/10/85 
\ window frame drawing routines 

sides 

uly wcbseg@ height wcbseg@ + 1+ uly wcbseg@ 1+ 

do ulx webseg@ i [ 186 boarder 256 * + ] literal putch 


ulx wcbseg@ width wcbseg@ + 1+ i 
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[ 186 boarder 256 * + ] literal putch 
loop ; 


ee 


file: WINDOW.BLK Block: 14 


\ window routines cl 11/10/85 


\ temporary data storage areas 


\ used by scn->buf and buf->scn 


label save_h nop nop storage for height parameter 


label save w nop nop storage for width parameter 
label save_ptr nop nop storage for start pointer 


label save_si nop nop storage for forths IP reg 


ae Lv FF oe A 


label save ds nop nop storage for current ds reg 


a 


file: WINDOW.BLK Block: 15 


\ window routines cl 11/10/85 

\ move data from screen to memory buffer 

hex 

code scn->buf \ x y width height seg -- 

cld es pop 0 # di mov save _h #) pop save _w #) pop ax pop 

aQ # bl mov bl mul bx pop bx shl bx ax add ax save ptr #) mov 

si save_si #) mov ds ax mov ax save ds #) mov v_seg # ax mov 

ax ds mov cs: save ptr #) si mov cs: save _h #) cx mov 

here cx push cs: save w #) cx mov. rep movs 
cs: save ptr #) si mov a0 # si add si cs: save_ptr #) mov 
cx pop 

loop 

cs: save ds #) ax mov ax ds mov 

save_si #) si mov 

next 

end-code 


i 


file: WINDOW.BLK Block: 16 


\ window routines cl 11/10/85 

\ move data from memory buffer to screen 

code buf->scn \ seg x y width height -- 

cld save h #) pop save w #) pop ax pop a0 # bl mov 

bl mul bx pop bx shl bx ax add ax save ptr #) mov 

si save _si #) mov ds ax mov ax save _ds #) mov. ax pop ax ds mov 

v_seg # ax mov ax es mov 0 # si mov cs: save ptr #) di mov 

cs: save h #) cx mov 

here cx push cs: save _w #) cx mov. rep movs 
cs: save ptr #) di mov a0 # di add di cs: save_ptr #) mov 
cx pop 

loop 

cs: save ds #) ax mov ax ds mov save si #) si mov 

next 

end-code 

decimal 


ow 


file: WINDOW.BLK Block: 17 


\ window routines cl 11/10/85 


\ lowest level window routine 


(continued on next page) 
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NOT COPY 
PROTECTED! 







Sybil is an Advanced.Diagnostics disk... 
She can low format hard disks just like 
Advanced Diagnostics (IBM, Compaq, etc.) and 
she can do system and memory tests which 
provide even more information than Advanced 
Diagnostics does. $245.00 cheaper than IBM's 
Advanced Diagnostics! 


Sybil is a Disaster Recovery program... 
She can recover hard disks that have been ac- 
cidentally formatted, completely! The hard disk 
reappears in exactly the same condition prior 
to the format. Truly amazing! 


Sybil is a Graphics Editor... 

She can draw on either RGB monitors (in color) 
or IBM Monochrome monitors in high ASCII 
characters. Perfect for creating Binary Image 
Files. The Binary Image Files can be converted 
to Assembly and then linked to other lan- 
guages, such as your favorite Pascal, C, or com- 
piled BASIC program. Includes source code. 


Sybil is a File Wizard... 

Sybil can backup files by date, by time, or by 
size. She can find any file (or files) anywhere on 
your hard or floppy disks, even if you haven't 
the vaguest notion. She can edit file attributes 
with the greatest of ease, unerase files, edit 
sectors, and globally change time and date 
stamps. All her file utilities understand paths 
and wildcards. 


Sybil is alsoa... 

RAM Disk, Print Spooler, General Regular 
Expression Parser and, Advanced File 
Comparator. 


Order Sybil Today! 
Call 800-922-3001, In Colorado, 
ee 303-444-1542 
eo 
ee SOPMLAD 
ee PO Box 7430 





Boulder, Colorado 80306 
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FORTH WINDOWS 


Listing One (Listing continued, text begins on page 46.) 


\ moves screen data to memory buffer 


\ and then draws the actual window frame 


: ( (window) ) \ move data scn->buf 


ulx webseg@ uly wcbseg@ \ x y coordinates 
width wcbseg@ 2+ height wcbseg@ 2+ \ width height 
bufseg wcbseg@ scn->buf \ get buf seg addr 


top sides bottom ; 


rg 


file: WINDOW. BLK Block: 18 
\ window routines cl 11/10/85 
\ clear window routine 
: Clr_window \ -- 
ulx webseg@ 1+ \ upper left corner x 
uly wcbseg@ 1+ \ upper right corner y 
ulx wcbseg@ width wcbseg@ + \ lower left corner x 
uly webseg@ height wcbseg@ + \ lower right corner y 
0 attrib wcbseg@ scrlup \ scroll entire window 
0 curx wcbseg! \ home window cursor 


0 cury wcbseg! ; 


a a SS Ee a Fg oe ee ee es 
file: WINDOW.BLK Block: 19 


\ window routines cl 11/10/85 


(window) \ x y width height attrib --- f 
record size calloc \ try to allociate space for wcb 
if wcbseg @ >r wcbseg ! r> \ if successful store seg var 
oldwcbseg wcbseg! attrib wcbseg! \ save attrib in wcb 
2dup 2+ swap 2+ * 2* calloc \ alloc space for screen buf 


if bufseg wcbseg! \ save buffer seg 


height wcbseg! width wcbseg! \ save parameters in 


uly webseg! ulx webseg! \ new wcb 
rdcur oldy wcbseg! oldx wcbseg! \ get old cursor pos. 
((window)) clr window true \ move data draw frame 


else ." buffer alloc. failure" cr \ if no memory 
webseg @ free drop drop 0 \ free wcb memory 
then 
else ." web alloc. failure" drop drop 0 


then ; \ return flag 


eta een tp nce nani sats npn rte peete ate tat Vn 
file: WINDOW.BLK Block: 20 


\ window routines cl 11/10/85 
\ window parameter checking 
: wfit cr 

abort" Window won't fit on crt" ; 


: open window \ x y width height attrib -- f 
aepth 5 >= 
if >r 4dup rot + 2+ 24 <= 
if + 2+ 79 <= 


if r> (window) 
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else cr ." ULX and/or WIDTH incorrect" wfit 
then 
else cr ." ULY and/or HEIGHT incorrect" wfit 
then 
else cr ." Incorrect # of parameters specified" quit 
then ; 


——?:?”_ aeenwnmk es a 


file: WINDOW.BLK Block: 21 


\ window routines 


cl 11/10/85 


\ close the current window (defined by wcbseg data) 


\ free web and buffer memory then 
close_window \ 
webseg @ 0 <> 
if bufseg wcbseg@ \ 


ulx wcbseg@ uly wcbseg@ \ 


unlink window 


\ if window exists 


get buffer seg addr 


get x,y corner 


width wcbseg@ 2+ height wcebseg@ 2+ 


buf->scn \ 
oldx wcbseg@ oldy wcbseg@ at 
bufseg wcbseg@ free drop \ 
webseg @ free drop \ 
oldwcbseg wcbseg@ wcbseg ! \ 
else \ 
cr ." No open windows !" cr 


then ; 


mov data back to screen 


free buffer seg memory 
free wcb seg memory 
unlink this window 


if no current window 


Ce ———————————————————————————— 


file: WINDOW. BLK Block: 22 


\ window routines 

\ position cursor in window 

\ 

\ stay in the window 
wat ” 
Swap dup abs width wcbseg@ \ 
1- > \ 
if drop width wcbseg@ 1- then \ 
curx wcbseg! \ 
dup abs height wcbseg@ \ 
1- > \ 
if drop height wcbseg@ 1- then \ 
cury wcbseg! \ 


curx wcbseg@ ulx wcbseg@ + 1+ \ 
cury wcbseg@ uly wcebseg@ + 1+ \ 


a5. 


cl 11/10/85 


if parameters out of range do the best we can and still 


xyr-- 
req. x in window ? 

if not then 

set x to max in window 
Save new cursor x position 
req y in window ? 

if not then 

set y to max in window 
Save new cursor y position 
actual cursor position 


calculation 


———————————————————————————— 


file: WINDOW. BLK Block: 23 
\ window routines 
\ read window cursor position 


rdwcur 


curx wcbseg@ cury wcbseg@ ; 


cl 11/10/85 


et. 5¥ 


\ read char/attrib of character at cursor in window 
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: rdwcha \ x y -- char/attrib 


wat rdchra ; 


a 


scroll window up for blank line at bottom 
: scroll window \-- 

ulx webseg@ 1+ uly wcbseg@ 1+ \ upper left corner to scroll 
ulx webseg@ width wcebseg@ + \ lower right x coordinate 
uly webseg@ height wcbseg@ + \ lower right y coordinate 
1 attrib wcbseg@ scrlup ; \ up 1 line 


ae EEEEtEEyEyE EE EEEEsEEE Ena 


file: WINDOW. BLK Block: 24 


\ window routines cl 11/10/85 
\ do carrage return in the current window 


: crout rdwcur nip 0 swap wat ; \ carrage ret in window 


\ do a line feed in the current window 
: lfout rdwcur 1+ dup 

height wcbseg@ 1- > \ cursor out of window 
if 1- scroll _ window then \ if so scroll the window up 


wat ; \ place the cursor in window 


\ do a back space in the current window 
: bsout rdwcur over 0<> \ backspace cursor in window 


if swap 1- swap wat then ; 


\ ring the bell 


: bell 7 (emit) ; \ sound the horn 





file: WINDOW.BLK Block: 25 


\ window routines cl 11/10/85 


: wemit dup 32 < \ char -- 


if case \ if control char process it 


7 of bell endof \ if bell then 


8 of bsout endof \ if backspace then 
10 of lfout endof \ if linefeed then 
13 of crout endof \ if carrage ret then 

endcase 
else \ else its a display char 
attrib wcbseg@ 256 * + \ char now char/attrib 
rdwcur rot chrat ¥ output char adv. cursor 
drop dup width wcbseg@ 1- = \ if at end of window line 
if drop lfout crout \ do lfcr to next line 
else 1+ curx wcbseg! \ store new x coordinate 
then 


then ; 
eh ae ee ee 


file: WINDOW.BLK Block: 26 


\ window routines cl 11/10/8! 


: wor 13 wemit 10 wemit ; \ window carrage return 


: wtype 0 \ window equiv. of type 


?do count wemit loop drop ; 


\ use memory manager to give forth a full 64k segment 


(continued on next page) 
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Transform Your Programs 


edward k. ream with 
CPP—C Preprocessor Plus 


Includes ALL features of the standard C preprocessor 2% 

¢ Define arbitrarily complex macros with #define command. 

e Include and nest files to any depth with #include command. 

e Include lines with #if, #ifdef and #ifndef commands. 

¢ Define multiple constants with #enum command. 

¢ Optional extra feature: Imbed formatting or other commands 
in your source code. (Lines starting with . or « are ignored.) 


Fast and flexible # # 

e 30 times faster cra the Preprocessor nuiblished | in Dr. Dobb’s 
Journal. 

e Can be used for any language, including assembler. 

e Can be used as a stand-alone macro/include processor. 

© Code can be used as the lexical analyzer for parsers or 

assemblers. 




































Complete®: 

e You get complete SOURCE CODE in standard C. 

e You get everything you need to use CPP immediately. 

© CPP is unconditionally guaranteed. If for any reason you are 
not satisfied with CPP, your money will be refunded promptly. 


Price: $95. 


Call or write today: 

Edward K. Ream 

1850 Summit Ave., Dept. DD 
Madison, WI 53705 

(608) 231-2952 


TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68k) 
and the disk format (8 inch CP/M or the exact type of 5% inch disk). Send a check or 
money order for $95 ($105 for foreign orders). Foreign checks must be denominated 
in U.S. dollars drawn on a U.S. bank. Sorry, I do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check is included. 


Circle no. 90 on reader service card. 





echnical support, personal service, com- 

petitive prices. 
Disclone full service quality tested diskette 
duplication, packaging, documentation produc- 
tion and processing ensures precise duplica- 
tion, thorough quality control, and expedient 
response to your requirements. 
NOclone state of the art hardware based copy 
protection is true piracy protection for author- 
ized allotments only. Each application is 
uniquely encrypted. Install routines are coded 
for nontransferrable hard disk allotments. 
Committment dates are guaranteed. Fast 
turnover 

w up to 1000 in 24 hours, any format. 

mw up to 10,000 in one week, any format. 


CRUE 


DISCLONE SOFTWARE PRODUCTION SERVICES 
1050 North 5th street, San Jose, California 95112 


(408) 947-1161 OUTSIDE CA: 1-800-826-4296 
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FORTRAN PROGRAMMERS 


Looking for the right PC FORTRAN LANGUAGE SYSTEM? 
If you’re serious about your FORTRAN programming then 
you should be using F77L- LAHEY FORTRAN. 


Editor's Cholce - PC Magazine 


¢ Full FORTRAN 77 Standard 
(F77L is not a subset) 

¢ Popular Extensions for easy 
porting of minicomputer 
and mainframe applications 

© COMPLEX* 16, LOGICAL:s 1 
and INTEGER« 2 

¢ Recursion - allocates local 
variables on the stack 

¢|EEE - Standard Floating 
Point Arithmetic 

¢ IMPLICIT NONE 


¢ Fast Compile - Increase your 
productivity 

¢ Source on Line Debugger 
(Advanced features without 
recompiling) 

¢ Arrays and Common Blocks 
greater than 64K 

¢ Clear and Precise English 
Diagnostics 

¢ Compatibility with Popular 
3rd Party Software 
(i.e. Lattice C) 


¢ Long variable names - 
31 characters 


e Easy to use manual 
¢ Technical Support from LCS 


F77L - THE PROGRAMMER’S FORTRAN 
$477.00 U.S. 


System Requirements: MS-DOS or PC-DOS, 256K, math coprocessor (8087/80287) 


FOR MORE INFORMATION: (702) 831-2500 


Lahey Computer Systems Inc. 

PO. Box 6091 Incline Village, NV 89450/USA 
International Dealers: 

England: Grey Matter Ltd., Tel: (0364) 53499 
Denmark: Ravenholm Computing, _ Tel: (02) 887249 
Australia: |§ Computer Transitions Tel: (03) 537-2786 
Japan: Microsoftware, Inc., Tel: (03) 813-8222 


SERVING THE FORTRAN COMMUNITY SINCE 1967 
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THE HAMMER 


Software Tools in C 


“| have already saved weeks of coding . . . thank you for providing 
such a useful tool. . .""- G.T. 








Let The HAMMER Library of over 150 routines save you valuable 
development time and effort: 


LIBRARY FUNCTIONS : 
e Multi-level 123-like MENUS 
e DATA ENTRY 
MULTI-FIELD mode for Full-Screen data entry 
@ Single-Field mode for individual fields 
e Data Verification 
e Full Editing within each field 
e Strings, dates, and fixed decimal numbers 
e “Option” fields force user to pick from a given set 
e SCREEN MANAGEMENT 
® cursor positioning 
® full attribute control 
e Date/time/string conversions 
e BIOS access/pattern matching/and more 


UTILITIES 
e HARC- -complete Source File Archiver 
e HAMCC -compile designated source modules residing 
WITHIN an archive file under any of the supported 
compilers and optionally place resulting object 
modules in a library. 


SUPPORTED C COMPILERS: 
Microsoft C 3.00 ¢ Cl-C86 e Mark Williams C86 
DeSmet C e Lattice 


INCLUDES source code and manual! 












e display boxes & tables 
e scrolling and clearing 











$195 plus shipping 
VISA/MC accepted 






0.E.S. SYSTEMS 
1906 Brushcliff Rd. © Pittsburgh, PA 15221 e 412/243-7365 


Looking for the right tool for the job? 
REACH FOR THE HAMMER 
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FORTH WINDOWS 
Listing One 


(Listing continued, text begins on page 46.) 


: initialize \-- 
cr ." Memory management " \ output 1/2 msg 
-1 setblock \ request FFFF bytes 
if \ if successful 
-" initialized" \ output message and 
0 wcbseg ! \ initialize link variable 
else 
-” error quit \ abort program 
then cr ; 


ee ane a inl gh te tye trpesTctasige teeta BE ee 
file: WINDOW.BLK Block: 27 


\ window demo cl 11/10/85 


\ window equivalents of standard Forth words 


: wlist block 16 0 
do dup i c/l * + c/l \ window equiv. of list 


-trailing wtype wer 


loop drop ; 
: wtriad 3 / 3 * 3 bounds \ window equiv. of triad 
do i wlist \ list screen in window 
wcr wcr \ add a couple of cr's 
loop ; 





file: WINDOW. BLK Block: 28 


\ window demo cl 11/10/85 
\ window canned messages 
: msgl 
“" This could be your application program! " wtype ; 
: msg2 " Ain't this window package something! " wtype ; 
: msg3 “ ** Window 4 ** " wtype ; 
: Msglout O O wat \ output msgl 20 times 
20 0 do msgl loop ; 
: msg2out 0 0 wat \ output msg2 10 times 
10 0 do msg2 loop ; 
> msg3out O O wat \ output msg3 80 times 


80 0 do msg3 loop ; 


apnea negating eel pe a hea Te eee ONE ee 
file: WINDOW.BLK Block: 29 
\ window demo cl 11/10/85 
\ video attribute constants 
7 constant normal 15 constant high _int 
112 constant reverse 128 constant blink 
: fill_crt 0 0 \ fill crt with rev video A's 


{ ascii A reverse 256 * + } \ calculate char/attrib code 
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a 


literal 2048 draw_row ; 


: wait 10000 0 do noop loop ; \ timing loop 

a Ne a Sian cae ciao ainsi sneer 
file: WINDOW.BLK Block: 30 

\ window demo cl 11/10/85 


\ define the four windows used in the demo program 


he Model TC-50 12-inch tape subsystem provides a 

andard medium for transmission of mainframe data 

: windowl \ define window #1 | information to PC users, while maintaining mainframe 
isolation and data integrity. Use ODI subsystems to imp 

_ data to data base programs like dBase Ill. 


‘The TC-50 subsystem also provides fast back-up a , 


0 0 20 10 reverse open_window ; 





: window2 \ define window #2 as well as a device driver 
| and interface soft- é 
2 1 70 8 normal open_window ; ware for popular 3 
- compilers. 
: window3 \ define window #3 The TC-50 subsystem 
includes tape drive con- 

7 6 69 10 reverse open window ; troller, cables and docu- : oe 
mentation. All ODI \ Overland Mota, ine. 
products carry a 30 day | 5644 Kearny Mesa Road 

: window4 \ define window #4 unconditional money-back : San Diego, CA art : 
guarantee, and are war- Tel. (619) 571-5555 
10 9 59 4 high_int open_window ; ranted for one year, Telex 754923 OVE 
parts and labor. . ee 
file: WINDOW.BLK Block: 31 Also Available — 
XENIX -— 
\ window demo cl 11/10/85 
: demo 


fill _crt windowl 
if 0 0 wat msg2 wait wer wait 7 emit wer 


wait “ It sure is" wtype wait 8 wemit 8 wemit 





wait 10 5 wat wait window2 : : ee 
Circle no. 192 on reader service card. 
if msglout wait window3 
if 0 10 wat 24 wtriad wait window4 
if msg3out wait close window wait close window 


wait clr_ window msg2out wait close window 


O wlist wait wait wait wait close window 


then 
ao If you're a C programmer (or want to be one), we 
speak your language. Subscribe to The C Journal 
then today, and start increasing your productivity right 
then away. We give you information you Can use on any 
machine — IBM PC™, UNIX™-based, Macintosh”, or 
wait ; CP/M™ — micro, mini, or mainframe. 
Spal eal pep cet a e in-depth reviews and feature articles — C com- 
De anes ca soe tad pilers, editors, interpreters, function libraries, 
and books. 
e hints and tips — help you work better and 
\ window demo cl 11/10/85 faster. 
only forth also dos also \ search dos and forth e interviews = with software entrepreneurs that 
: test empty-buffers \ dummy program name made it a by ery C. 
@ news and rumors — from the ANSI standards 
initialize \ initialize memory manager committee and the industry. 
" window.blk" fcbl (!fcb) \ fi: to fcb « z as 
oe oo is Sache Lee ay Limited Time Offer 
febl if = < t . . < 
See ae ee Pa et eee ce Join our thousands of subscribers at the Discount 
20 Rate of only $18 for a full year (regularly $28)! Call 
a iy Soin Sick tai oo Peiaw ik us now at (201) 989-0570 for faster service — don't 
miss a single issue of The C Journal! 
demo wait wait wait dark wait 
Please add $9 for overseas airmail. 
loop 
.“ What did you think of that Huh?" cr bye ; Trademarks — CP/M: Digital Research Inc. IBM PC: IBM 
Corp. Macintosh: Apple Computer Corp. The C Journal: 
infoPro Systems. UNIX: AT&T Bell Labs. 
only forth also \ power up search order 


nf Pr st ih MasterCard 
‘ test is boot \ make demo run automatically EES 4 bic aat thes ay : 
Denville, NJ 07834 


save-system window.com \ create .COM demo 





Circle no. 194 on reader service card. 
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STRUCTURED PROGRAMMING 


Listing One (Text begins on page 112.) 


Listing One: tiny tools 

: NIP (nm-m ) SWAP DROP ; ( drops second on stack ) 

: TUCK (nm-mnm~») SWAP OVER; ( tucks top under second ) 
“ROT (abc-cab) ROT ROT; ( opposite of ROT ) 

>: INCR ( a- ) 1 SWAP +! ; ( increments a variable ) 

: DECR ( a - ) -1 SWAP +! ( decrements a varaible ) 


( ERRCNT INCR increments the variable ERRCNT ) 
( #LINES DECR decrements the variable #LINES ) 


2: ON: -(h a=") 
: OFF (a - ) 


-1 SWAP ! ; 


( forces variable to true value ) 
QO SWAP ! ; 


( forces variable to false value ) 


27 CONSTANT ESC 


: NUF? ( - f ) ?TERMINAL DUP IF KEY 2DROP KEY ESC = THEN ; 
( NUF? is used inside a DO LOOP structure; when a key is ) 
( pressed, NUF? stops to wait for a second keypress. ) 
( If no key was struck or the second key is not the Escape ) 
( key, the flag is false; otherwise, the flag is true. ) 


( The word ?TERMINAL is vendor-specific. Your Forth might ) 
( use ?KEY or some other word instead. It is the word that ) 
( returns a true flag if a key has been pressed and a false ) 
( 
( 


flag otherwise; the key's value is then retrieved with the) 
standard word KEY. ) 


LISTIT #LINES 0 DO I LIST-LINE NUF? IF LEAVE THEN LOOP ; 
Example’of NUF?: LISTIT will pause after listing a line ) 
when a key is pressed. Pressing Escape will then leave ) 
the loop, interrupting the task; any key except Escape ) 
does not interrupt but resumes the task. ) 


0 CONSTANT F 
-1 CONSTANT T 


: ESC-HIT? ( - f ) ( leaves T if Escape key pressed ) 

F 2?TERMINAL IF BEGIN KEY ESC = OR ?TERMINAL NOT UNTIL THEN ; 
ESC-HIT? is like NUF? without the pause. It is used much ) 
like NUF? and would also work in the above example. Note ) 
that ESC-HIT? discards the contents of the key buffer as ) 
it rummages through looking for an Escape keypress. ) 


~~ 


: BYTE-SWAP ( x - x' ) 256 UM* OR ; 


( This word swaps the two bytes in a cell. 


Bill Muench of ) 
( Santa Cruz thought of this little gem. ) 


End Listing One 


Listing Two 
Listing Two: array-defining word 1 


: ARRAY CREATE ( # - ) 2* ALLOT 
DOES> 


( reserves # cells in memory ) 
( n <adr> - adr ) SWAP 2* + ; ( adr of nth cell ) 


( This array allocates the number of cells specified, but does ) 
( not initialize them to zero. ) 


8 ARRAY TOM 
125 5 TOM ! 
0 TOM @ 


( defines TOM as having 8 cells = 16 bytes ) 
( stores 125 in cell 5 of TOM ) 
( retrieves the contents of cell 0 of TOM ) 


End Listing Two 


Listing Three 


Listing Three: array-defining word 2 


1 CONSTANT BYTES 
2 CONSTANT CELLS 
4 CONSTANT DOUBLES 


: FOR CREATE ( #slots type - ) DUP C, * HERE OVER ERASE ALLOT 
DOES> ( index <adr> - adr ) COUNT ROT * + ; 


11 BYTES FOR FRED 
35 CELLS FOR JOAN 
17 DOUBLES FOR JOHN 


These arrays will deliver the address of the slot based 
on the type of the entry. The array is initialized to 
zeroes at creation time. It is the programmer's job to 
use Cl, !, 2!, C@, @, and 2@ as appropriate. Note that 
FRED's 11 slots are numbered 0 through 10, JOAN's 35 are 
numbered 0 through 34, and JOHN's 17 are 0 through 16. 


OO 
ee eee ee ee 


213 3 FRED Cc! ( stores 213 into byte 3 of FRED ) 
31 JOAN @ ( fetches contents of cell 31 of JOAN ) 
3142352. 15 JOHN 2! ( stores 3142352. into slot 15 of JOHN ) 


End Listing Three 
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Listing Four 


Listing Four: array-defining word 3 


1 CONSTANT PUT 
0 CONSTANT GET 


( flags for the IF statement ) 
( in the DOES> part of FOR ) 


CREATE STORES 
CREATE FETCHES 


jC) lL OOP 21 [ 


( NOOP stored to put 2! ) 
] C@ @ NOOP 2@ [ 


( and 2@ in right spot ) 


: FOR CREATE ( #slots type - ) DUP C, * HERE OVER ERASE ALLOT 
DOES> ( datum 1 ndx <adr> -- | 0 ndx <adr> -- datum ) 
COUNT DUP >R ( save type ) ROT * + R> l- 2* ROT 
IF STORES ELSE FETCHES THEN + @ EXECUTE ; 


This version of FOR takes care of the fetching and storing 
given the appropriate flag; the programmer does not have to 
remember whether it is a byte, cell, or double-precision 
array. This could easily be extended for floating-point 
numbers as well. In the stack comment, "|" is read as "or." 


11 BYTES FOR FRED 
35 CELLS FOR JOAN 
17 DOUBLES FOR JOHN 


213 PUT 3 FRED 
GET 31 JOAN 
3142352. PUT 15 JOHN 


( stores 213 in byte 3 of FRED ) 
( retrieves contents of cell 31 of JOAN ) 
( stores 3142352. in slot 15 of JOHN ) 


End Listing Four 


Listing Five 


Listing Five: bit tools 


CREATE BITBYTES 1 C, 2C, 4.C, 8 C, 16 C, 32 C, 64 C, 128 C, 


: FLAG ( 2? - £ ) O= NOT ; ( forces to a Boolean flag: -1 or 0 ) 


: AIM ( adr - bit# adr' ) SWAP 8 /MOD ROT ¢ ; 


+BIT ( adr ) AIM SWAP MASK OVER C@ OR SWAP C! ; 


@BIT ( 


# 
# 
-BIT ( # adr - ) AIM SWAP MASK NOT OVER C@ AND SWAP C! ; 
# adr - f ) AIM C@ SWAP MASK AND FLAG ; 

# 


“BIT ~{ 


adr f ) AIM 2DUP @BIT IF -BIT ELSE +BIT THEN ; 


End Listing Five 


Listing Six 


Listing Six: array-defining word 4 


0 CONSTANT BITS ( for bit arrays ) 
: BITS>BYTES ( #bits - #bytes ) 8 /MOD SWAP IF 1+ THEN ; 


: FOR CREATE ( #slots type - ) DUP C, ?DUP 


IF * ELSE BITS>BYTES THEN 
HERE OVER ERASE ALLOT 
DOES> ( datum 1 ndx <adr> -- | O ndx <adr> -- datum ) 


COUNT ?DUP ( nonzero = numbers; 0 = bits ) 

IF DUP >R ( save type ) ROT * + R> 1- 2* ROT 
IF STORES ELSE FETCHES THEN + @ EXECUTE 
ELSE ROT ( action flag: 1 = store, 0 = fetch ) 
IF ROT 2DUP ( nonzero means 1 bit or toggle ) 

IF 0< IF ~BIT ELSE +BIT THEN 
ELSE -BIT THEN 
ELSE @BIT THEN THEN ; 


2CONSTANT SET 
2CONSTANT ZAP 
2CONSTANT FLIP 


( By placing two values on ) 
( the stack, these words in ) 
( effect include the PUT. ) 


FOP 
HRP 


23 BITS FOR BIT ({ reserves 4 bytes for bit array ) 


SET 16 BIT ( turns bit 16 on ) 
ZAP 5 BIT ({ turns bit 5 off ) 
FLIP 0 BIT ( toggles bit 0 ) 
GET 3 BIT ( retrieve bit 3 as boolean flag ) 


( Examples shown in Listing 4 will also work with this word.) 


End Listing Six 
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Listing Seven 


Listing Seven: array-defining word 5 


: >TYPE ( adr - adr' ; from #slots-adr to type-adr ) 2+ ; 


: >DATA ( adr - adr' ; from #slots-adr to data-adr ) 3+ ; 
: FOR CREATE ( #slots type - ) 
OVER , ( #slots ) DUP C, ( type ) 
IF * ELSE BITS>BYTES THEN 
HERE OVER ERASE ALLOT 
DOES> ( datum 1 ndx <adr> -- | O ndx <adr> -- datum 
>TYPE COUNT 2DUP ( nonzero = numbers; 0 = bits 
IF DUP >R ( save size ) ROT * + R> 1- 2* ROT 


?DUP 


—~— 


IF STORES ELSE FETCHES THEN + @ EXECUTE 
ELSE ROT ( action flag: 1 = store, 0 = fetch 
IF ROT 2DUP ( nonzero means 1 bit or toggle 
IF 0< IF ~BIT ELSE +BIT THEN 
ELSE -BIT THEN 
ELSE @BIT THEN THEN ; 


End Listing Seven 
Listing Eight: array display word 
: “TYPES ." bit byte cell double" ; 
.TYPE ( type - ) 6 * ['] “TYPES >BODY 3 + + 6 -TRAILING TYPE ; 
: DOUBLE? ( type - £) 4=; 
: }LINE ( type n - type ) OVER DOUBLE? IF DUP 5 ELSE DUP 10 
THEN MOD IF DROP ELSE CR 4 .R ."“ | ™ THEN ; 
: VITALS ( array-adr - data-adr #slots type ) DUP >TYPE 
OVER >DATA ROT @ ( #slots ) ROT C@ ( type ) ; 
: TITLE ( #slots type - ) CR CR SWAP . .TYPE ." s:" ; 
: DISPLAY ( adr -- ) VITALS 2DUP TITLE ?DUP 
IF ( numbers ) SWAP 0 DO I }LINE 2DUP I * + ( adr ) 
OVER DUP >R ( save type ) 1- 2* FETCHES + @ EXECUTE 
R> DOUBLE? IF 1I2:D-R ELSE 7 .R THEN 
NUF? IF LEAVE THEN LOOP 2DROP 
ELSE ( bits ) 0 DO I DUP }LINE OVER @BIT 
2 SPACES IF ASCII 1 ELSE ASCII - THEN EMIT 
NUF? IF LEAVE THEN LOOP DROP 
THEN CR ; 
: SPILL ( - ; name ) BL WORD FIND 
IF >BODY DISPLAY 
ELSE DROP CR .“ No such array “ THEN ; 
16 DOUBLES FOR MIKE 
1892735. PUT 0 MIKE 
7802472. PUT 15 MIKE 
1263. PUT 8 MIKE 
SPILL MIKE 
16 doubles: 
Oo | 1892735 0 0 0 0 
S| 0 0 0 1263 0 
10 | 0 0 0 0 0 
1S 7802472 
16 BITS FOR STEVE 
SET 0 STEVE 
SET 15 STEVE 
FLIP 11 STEVE 
SPILL STEVE 
16 bits: 
0 | Ee aay ee Se ay Sh ae oe 
10 | se: Bi doe = pees eek 
End Listings 
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OEM188 SBC DEVELOPMENT SYSTEM 
FOR PRODUCT APPLICATIONS 


EXPANSION 
BUS 






The OEM188 - designed to bring your product to 
market in the fastest possible time - through the most 
productive software development environment 
available & cost effective hardware. 


e The OEM188 boots MS-DOS or CP/M-86. Write your 
— in Assembler, Forth, Basic, C, Fortran or Pascal. 
OM your code. The EPROM programmer is onboard 
and fully integrated into the hardware and software. 
e Develop your code quickly with Vestas ROMmed 
languages designed for control tasks. 


Size 8” x 8”. FDC for 4 drives, Dual UART with RS-232, TTL 

and RS-422 1/0, Bus - IBM, Printer port, Watchdog, Battery 

backed real time clock and up to 256 K static RAM/ROM. 

Programmer interface - terminal. Various 1/0 boards available. 
Prices starting as low as $329 each 


VESTA TECHNOLOGY, INC.°7100 W. 44th Ave.eSuite 101 
Wheatridge, CO 80033 © (303)422-8088 « VISA & MC 


Circle no. 198 on reader service card. 


DATA CONVERSION 


» 
ou a 


TRANSFER DATA BETWEEN OVER 
500 DIFFERENT COMPUTER SYSTEMS 
WORD PROCESSORS TOO 
QUICK TURN-AROUND 
PRICES FROM $9 PER DISK 


CALL OR WRITE FOR YOUR 
FREE CATALOG 
PORT-A-SOFT 
555 S. STATE ST., SUITE #12 
P.O. BOX 1685, OREM, UT 84057 
801) 226-6704 


Circle no. 229 on reader service card. 











Choose your 
weapon . 


ForthCard 
C Board 


Our single board computers 
allow you to write high level 
embedded applications. 
Hitech Equipment 
Corporation 


9560 Black Mountain Road 
San Diego, CA 92126 
(619) 566-1892 


Circle no. 196 on reader service card. 
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COLUMNS 





Forth and the EMS 

he Lotus/Intel/Microsoft Ex- 

panded Memory Specification 
(EMS) allows application programs to 
access as much as 8 megabytes of 
bank-switched memory in a portable 
manner. The original specification 
(Version 3.0) was released jointly by 
Intel and Lotus around the time of 
the spring Comdex in 1985. Subse- 
quently, Microsoft endorsed the EMS 
and suggested some additions for the 
sake of multitasking operating sys- 
tems that resulted in the release of 
EMS, Version 3.2. Version 4 of the EMS 
is said to be under development, but 
we will not concern ourselves with 
that here. 

An expanded memory subsystem 
is actually the combination of a bank- 
switched memory board and a resi- 
dent system driver. Taken together, 
these present a uniform interface 
that can be called by programs via a 
software interrupt (67H). The driver 
supports such functions as allocation, 
deallocation, and mapping of the ex- 
panded memory pages. The Above 
Board from Intel was the first com- 
mercially available implementation 
of the EMS, but EMS boards are now 
available from a broad variety of ven- 
dors, including AST, Quadram, and 
Tall Tree Systems. Expanded memo- 
ry should not be confused with ex- 
tended memory, which is IBM’s term 
for the physical memory above 1 me- 
gabyte that is addressable by an 80286 
CPU running in protected mode. 

In harmony with this DDJ issue’s 
emphasis on Forth, I have included 
the source code for a simple PC/Forth 
interface to an expanded memory 
subsystem, allowing the declaration 
and use of huge arrays (Listing One, 


by Ray Duncan 





next month). I have kept the code 
_ simple for clarity and have made no 
_ attempt to optimize it for speed. Also, 
for the purposes of this example, I 








have not taken advantage of the EMS 
driver's ability to map four separate 
logical pages onto physical memory 
at a time, and I have not included 
code to eliminate redundant map- 
ping calls. As they say in the calculus 
books, these enhancements are left as 
an exercise for the reader, though 
they are easy to add once the basic 
EMS scheme is understood. 

Readers wishing for more details 
about EMS programming can find 
them in the chapter on memory 
management in my book Advanced 
MS-DOS (Bellevue, WA: Microsoft 
Press, 1986). You can also obtain the 
original EMS document (part number 
300275-003, dated September 1985) 
from Intel Corp., 3065 Bowers Ave., 
Santa Clara, CA 95051. 


The TEE Filter Again 

Herb Shear, of Los Altos, California, 
wrote: “Just a couple of comments 
regarding the TEE filter (published in 
the April 1985 DDJ). In the August is- 
sue you mention a bug reported by 
Dr. Fred Sinal, who indicated that the 
problem occurred with files that did 
not end in a CR/LF. The actual prob- 
lem is with files ending with the infa- 
mous Control-Z being output to the 
console in cooked mode. The resul- 
tant stripping of the *Z leaves the 
count one short, implying a ‘disk full’ 
to the calling program. 

“My first fix was to use the re- 
turned count as an offset pointer into 
the buffer and to test the character 
for *Z. If the compare was true, it 
was considered a good excuse for the 
failed write and the jump to the error 
message was not executed. This was 
OK, except that with midfile *Zs, the 
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latter part of the file never got to the 
console, though a file large enough to 
reload the buffer would cause con- 
sole output to resume. The disk file 
output would be complete. Accept- 
able but rather ungainly behavior. 

‘My second fix was to test the de- 
vice attribute word for the output de- 
vice with the JOCTL function and to 
set the output device to raw mode if it 
was found to be the console. Because 
the console’s mode is remembered 
program to program, it must be re- 
stored before TEE exits.’ 

Gary Woodman, of Darwin, Aus- 
tralia, wrote: ‘Using PC-DOS, I normal- 
ly redirect the output from BACKUP 
into a file to keep a log of what was 
backed up and when. BACKUP is even 
duller than usual when there's no 
output on the screen, however. 

“IT gleefully recalled the TEE filter 
you published in the April 1985 issue 
and chuckled to myself: ‘Ah ha, I'll 
TEE the output of BACKUP both to a 
file and to the screen!’ But when I dug 
out the issue, it seemed like too much 
trouble to type in a couple of pages of 
8086 assembler (it usually does), so I 
scratched my head for a few mo- 
ments and came up with a short C 
program [Table 1, below]. 

‘Now I know this is not quite the 
same as that Mr. Head provided, and I 
don't want to make a big thing of this, 
but it seems that the contrast be- 
tween Mr. Head's MASM program 
and this C program represents, in a 
nutshell, the dichotomy of program- 
ming today. As well as contrasting 










i 





_ 


Table 1: C version of TEE filter 
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the source code, contrast Mr. Head’s 
hours (possibly days) of development 
plus an hour of my time to type in 
and debug TEE.ASM (that is, debug my 
typing!) with the few minutes it took 


me to write the C program. ... Could 
it be that we have here a case of the 
tail wagging the dog? 


“Just in passing, in case anyone still 
feels that high-level language compil- 
ers add flab to our programs but little 
else, I report the code sizes of TEE.EXE 
as generated by my three MS-DOS 
compilers: 


Computer Innovations, V. 1.31 


7,936 bytes 
DeSmet, V. 2.41 8,192 bytes 
Hi-Tech, V. 2.0 1,611 bytes 


“Incidentally, this version of the CI | 


compiler is now in the public do- 
main, a brilliant marketing ploy and 
a ‘best buy.’ 

“T haven't done any benchmarks as 
it really isn’t a very important issue. 
Everyone knows the assembler pro- 


gram leads by at least an order of mag- | 


nitude. For the number of times I TEE 
things, I’m quite happy to accept the 
run-time inefficiencies in exchange 
for the saving in development using C 
for what is almost a disposable pro- 
gram. And as for TEEing the output of 
BACKUP, well, MS-DOS is of course sin- 
gle-tasking and, as it turns out, the out- 
put of BACKUP is not available to TEE 
until BACKUP finishes.” 

Mr. Woodman’s points on coding 
time vs. execution time are certainly 
worth discussing further in this col- 
umn. It doesn’t take me more than an 
hour or two to write a program the 
size of TEE from scratch in assembly 
language and feel confident that it is 
adequately debugged. And the vast 
majority of assembly code is reus- 
able, just as is C or any other lan- 
guage. Once an assembly-language 
functioning filter such as TEE is in 
hand, for example, it is only a few 
minutes’ work to modify it to per- 
form any reasonable transformation 
on a character stream. For me, the 
benefits of the superior performance 
and compactness of an assembly-lan- 
guage program almost always out- 
weigh all other considerations for 
utility programs that I am going to 
run more than once. Let’s hear from 
DDJ readers on this subject! 

Incidentally, I suspect that if Unix 
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Relocating Macro 


Assemblers 
e780 e8085 eNSC800 eHD64180 


What is your turn-around time? 
Eliminate this dilemma with 
fastest most powerful 
assemblers on the 

market. 



















32 significant chars. on externals ee 
math on externals e M80 Macros ™*' 





T-states in listing e M80 Pseudo-ops 
local labels e tables overflow to disk 
full drive-user support @ recommend JR over JP 







Requires Z80 W/40K TPA, CP/M2.2 or greater 


_S§$ LR_Systems 


1622 N. Main St., Butler, PA 16001 
(800) 833-3061 (412) 282-0864 
Telex 559215 SLRSYS 


Circle no. 78 on reader service card. 












NETWORKS aie) WORE. 
OWE e-cree ISAM HOES Ub AAU 


$395 COMPLETE 


For VISA, MC and COD orders 
call (314) 445-6833 

FairCom 

2606 Johnson Drive 

Columbia, MO 65203 


© 1985 FairCom 


Specify diskette format: 
e514" MS-DOS 

e8” CP/M 

@ 3'A" Mac 

8” RT-I| 


Ft 
oe 


The following are trademarks: c-tree and the circular disk logo—FairCom; MS—Microsoft Inc.; 
CP/M and Access Manager—Digital Research Inc.; Unix—AT&T; Apple—Apple Computer Co. 





Circle no. 93 on reader service card. 
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16-BIT 
(continued from page 107) 


were written in assembly language 
instead of in C, it would have an over- 
head of 64K instead of 256K, would 
run ten times faster, and wouldn't be 
so overburdened with barely useful 
features that have been grafted on by 
generations of graduate-student pro- 
grammers at UC Berkeley. 


Defenders of Concurrent DOS 
My (perhaps somewhat overdrawn) 
editorializations about Concurrent 
DOS and Digital Research in the Feb- 
ruary 1986 issue of DDJ drew plenty 
of responses from readers. This 
month I'd like to give some space to 
other viewpoints on this product. 

Steve Elias, of Wellesley Hills, Mas- 
sachusetts, wrote heatedly: ‘“‘Look be- 
fore you write that Concurrent DOS 
only supports DOS 1 functionality. 
You were using an old version. Con- 
current DOS supports all 2.1 calls. 

‘Concurrent DOS is the most sophis- 
ticated and DOS-compatible multi- 
tasking operating system available. 
The fact that it is based on CP/M may 
be ugly, but it is transparent to the 
average user.’ 

Mark Davidson of Chattanooga, 
Tennessee, sent two separate, de- 
tailed letters on Concurrent DOS 4.1, 
which I have abstracted to some ex- 
tent: “The new version really only 
supports path names as far as the 
CHDIR, RMDIR, and MKDIR commands 
go. None of the Concurrent PC-DOS 
commands will accept a directory 
path. ...As for using your DOS utili- 
ties under Concurrent DOS, it de- 
pends on what version of DOS these 
utilities belong to. If you are using PC- 
DOS 3.0 when you install Concurrent 
DOS, you can forget about running 
any of your PC-DOS utilities. They all 
refuse to run, giving the ‘incorrect 
DOS version’ message. The story is a 
little different if you are using PC-DOS 
2.1. Some utilities will run fine (such 
as TREE and FIND), whereas others do 
things that are very unexpected 
(CHKDSK checks drive A: instead of the 
current drive). DRI warns that BACK- 
UP and RESTORE should not be used. 
Also, it claims that you can run BA- 
SICA under Concurrent DOS with the 
only side effect being that multiuser 
activity will halt. This appears to be 
an understatement. BASICA on the PC/ 
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AT using the BASICA that comes with 
PC-DOS 3.1 will produce the ‘incorrect 
DOS version’ error. My attempts to 
run BASICA from PC-DOS 2.1 under 
Concurrent DOS produced an inter- 
esting display of nothing while caus- 
ing a horrendous beeping to come 
from the speaker. 

“I found some other unexpected 
surprises, too. Commands such as 
type foo.doc ' more will type the file 
but not pause at the end of each screen- 
ful. Could this mean that pipes don't 
work? Also, because none of the PC-DOS 
3 commands will run under Concur- 
rent DOS, attempts to execute the Ver- 
sion 3 command.com as a subprocess 
will fail. [haven't tried this with the PC- 
DOS 2.1 command.com. 

‘But this letter isn’t full of just bad 
news. DRI has obviously fixed some of 
the problems that were present in 
Concurrent DOS 3.2. Many programs 
that wouldn't execute under 3.2 now 
run fine under 4.1— these include the 
Lattice C compiler and DeSmet’s C 
compiler. Also, because some of the 
PC-DOS 2.1 utilities at least try torun, it 
is evident that several internal 
changes have been made. .. . 

“Concurrent DOs is still noticeably 
slower than PC-DOS, even if you have 
only one task running. And it is a big 
system, still requiring approximately 
1,700K of disk space; DRI also suggests 
that you have at least 512K RAM in 
your machine.’ 

Brian J. Mullan of Lutz, Florida, 
sent an articulate defense of Concur- 
rent DOS and its capabilities (both pre- 
sent and future). He wrote: “I am a 
senior software systems analyst with 
a company based in McLean, Virgin- 
ia, and I would like to provide some 
comments regarding your editorial 
statements on Digital Research's Con- 
current DOS operating system. 

“IBM has just implemented DRI’s 
Concurrent DOS 286 as the host IBM 
PC/AT OS for a 128-terminal system 
that it is going to market under the 
system 4680 name. I don’t know how 
much you read in other professional 
trade magazines, but the IBM repre- 
sentatives who commented on the 
release of the 4680 system stated in an 
MIS Week issue three or four weeks 
ago that ‘this is a true multitasking/ 
multiuser operating system allowing 
IBM PC software to run in the IBM PC/ 
ATs protected mode.’ 

“IBM also stated that it had worked 





with DRI to develop Concurrent DOS 
286 and to allow it to run PC-DOS soft- 
ware in the AT’s protected mode! The 
single AT running this OS not only 
provides the horsepower to manage 
the 128 dumb terminals tied to it (note: 
this system is not a LAN!), but the mul- 
titasking capabilities of the system al- 
low on-line communications to an 
IBM mainframe host concurrently 
with other processing functions. 

“So first of all, it is not true that DRI 
gave up on the 80286 Protected Mode 
version of its OS. Where is Micro- 
soft’s? [I didn't say DRI had given upon 
it, | said it admitted the OS would not 
be delivered in the form originally 
advertised. ] 

‘The mention you made of the DRI 
Unix events are not quite accurate 
either. .. . According to the trade me- 
dia coverage (by Computerworld and 
MIS Week), AT&T was the cause of the 
breakoff of the DRI Unix library de- 
velopment effort. Apparently AT&T 
decided that the Unix library needs 
could not possibly be fullfilled by a 
single company (which I think you 
should note included AT&T Informa- 
tions Systems division) in the time 
necessary to bring AT&T's computer 
line up against IBM. Because AT&T 
had signed an exclusive agreement 
with DRI for the development of this 
library, this prohibited AT&T from 
parceling out the tremendous 
amount of work to be done to even a 
single other company. So it was at 
AT&T's request that the contract was 
canceled and with the acknowledge- 
ment that DRI was not delinquent in 
its contractual obligations to AT&T. 

‘Again, AT&T did not go to Micro- 
soft for this development work, 
which should also make some sort of 
a statement! 

‘Last, Digital Research's Concurrent 
DOS version for the IBM PC/XT is the 
only true multitasking/multiuser, PC- 
DOS-compatible OS for those ma- 
chines. Yes, there is Xenix (no DOS 
compatibility), which costs only seven 
times as much and takes up 6-8 mega- 
bytes of disk storage space vs. the 160K 
for Concurrent DOS. 

“IT am also a Unix advocate and 
have programmed under that OS for 
several years now. At home, howev- 
er, I use Digital Research’s Concur- 
rent PC-DOS, Version 4.1. I find it to be 
a very good operating system envi- 
ronment with nearly all the profes- 
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sional systems design concepts de- 
scribed as essential for modern 
computing by such books as Operat- 
ing System Elements—A User Per- 
spective by Peter Calingaert (Pren- 
tice-Hall). Among the state-of-the-art 
features pointed out in this book that 
Concurrent PC-DOS provides and MS- 
DOS does not are: 


® the concept of programs as finite- 
state processes within the computer 
® dynamic memory management in 
the multitasking/multiuser environ- 
ment 

@ systems support for QUEUEING 
structures (that is, interprocess mes- 
sage queues, priority queues, mutual 
exclusion queues, and so on) 

® support for multilevel PRIORITY as- 
signment to allow efficient schedul- 
ing of multiple concurrent processes 
® inclusion of a directory hashing al- 
gorithm (which drastically increases 
system throughput) 

® logical file and record locking 

® multilevel passwording of files 
controlling read, write, and delete 
privileges 

® time and date stamping of files (for 
creation, last access, and _ last 
modification) 

® system support for processes to is- 
sue logical wait or resume inter- 
rupts—another efficient method 
used in interprocess communications 
® real-time multitasking and mul- 
tiuser support (note that Microsoft 
Windows uses a nonpreemptive mul- 
titasking algorithm, which means it 
cannot be used for applications re- 
quiring real-time response) 

® logical data storage elements 

® the ability to spawn multiple sub- 
processes from any single process (in- 
valuable for any application that 
must monitor multiple port I/O such 
as in communications or instrumen- 
tation control) 


“I agree and disagree with your 
statement that DRI will always be 
playing catch-up to Microsoft's MS- 
DOS. I believe that if you consider the 
features that DRI’s PC-DOS-compatible 
OS family (which by the way runs on 
the 8088, 8086, 80286, and 68000) al- 
ready provides, and which Microsoft 
is only now beginning to address for 
its MS-DOS, you might take a different 
attitude as to which operating system 
really provides the professional pro- 
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Make your PC or AT into a 


COMMUNICATING WORKSTATION 


for only $85 


Use ZAP, the Communications System for Technical Users 


COMPLETE Communications for PROGRAMMING and ENGINEERING 


EMULATION of graphics and smart terminals is combined with the ability to TRANS- 
FER files reliably, CAPTURE interactive sessions, and transmit MESSAGES while 
also being able to swap between your mini or mainframe session and your PC application. 
SUSPEND alinetorun a PC application. Reconfigure features to fit the communications 
parameters and keyboard requirements of the host computer software. Complete technical 
documentation helps you understand and fit ZAP to your style. 


HIGHLIGHTS OF ZAP: 


UNIX-like Utilities for 
Managing C Source Code 


No C Programmer should be 
without their assistant - C ToolSet 
from Solution Systems. The package 
consists of several utilities designed 
to help make C programming tasks 


ee CRESS EI 


Emulate TEKtronix 4010/14 and DEC VT 100. 102, 52 including 
variable rows and columns, windows, full graphics, and smooth scrolling. 
Reliable file transfer to/from any mainframes and PCs including KERMIT and 
XMODEM protocols plus you get a full copy of KERMIT. Transfer speeds ranging 
ee 50 to 38,400 BAUD. Session control include printer dumps and save to 
isk. 
MACRO and Installation files (“scripts”) controllable by you. 
EMACS, EDT and VI “Script” files are included. ZAP is also used with other popu- 
lar software including graphics products like DISSPLA and SAS/GRAPH. 
CONFIGURABLE to communications, terminal features on the “‘other end’; 1, 2 
stop bits; 5, 6, 7 or 8 data bits; parity of odd, even, none, mark and space; remap all keys 
including the numeric pad and standard keyboard, set any “virtual” screen size. 
Full PC/MSDOS access to run any command or program that will fit in your systems 
memory. ZAP takes less than 64K. 
9 Comm ports are supported by ZAP. Plus full color in text and graphics make use of 
the IBM color, EGA cards, or Hercules Monochrome. 


335-D Washington St. 
Norwell, Mass. 02061 
617-659-1571 
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GREP — Regular expression searches 
— ideal for finding a procedural call 
or a variable definition amid a large 
number of header and source files. 


FCHART — Traces the flow of 
control between the large modules 
of a program. 


PP (C Beautifier) - Formats C program 


oe files so they are easier to read 
C ToolSet (formerly C Helper | 
includes: | y es AREF (CCREF) = Cross references 


DIFF - Compares text files on a 


variables from a program. 


line-by-line basis or use CMP for 


byte-by-byte - indispensable for 


Available For MS-DOS. - $95 


showing changes among versions 
of a program under development. 


So 


“intelligent’’ it stays in synch 


even when you add 100 lines. 
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355 _ Solution 
Source Code Included S ystems a" 


335 Washington St. 
Norwell, MA 02062 
617-659-1571 
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Try It. 
Then Buy It. 
PC-Write.: 


A fast, full-featured word 
processing package for the 
unbelievable price of $10. 
Complete. You get a manual 
on disk, mail merge, split 
screen, keyboard macros, 
on-screen formatting, full 
printer support, and more. 


Try PC-Write for $10. 
Then register for $75 to get: 

e latest diskette 

¢ printed manual 

® two updates 

® phone support 

¢ newsletter 
Registration supports our 
‘shareware’ concept that 
keeps our prices low, and 
allows our development of 
PC-Write enhancements. 


Shareware means you can 
get PC-Write from a friend 
or user group to try, and 
give away copies yourself. 
Then register if you like it. 
No risk! 
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NOW | 
Version 2.6 


The best package for both 
fast program text editing and 
nice looking documentation. 
Version 2.7 with spell check 
coming soon, new price $89. 


Order PC-Write Today. 


Satisfaction Guaranteed. 


Vie x3 
f (206) 282-0452 
ee 219 First N. #2241 
a aa 
a, SS Seattle, WA 98109 
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16-BIT 
(continued from page 109) 


grammer with the more state-of-the- 
art programming environment! 

“Yes, DRI is playing catch-up but 
only in an attempt to maintain file 
and programming compatibility 
with MS-DOS as Microsoft attempts to 
implement all of the aforementioned 
features. DRI’s next release of the PC/ 
XT version of this OS in two to three 
months and which is already in beta 
testing should provide the last ves- 
tiges of compatibility with MS-DOs, 
Version 2.1, including: 


® full path support 

@ installable device drivers (the cur- 
rent version allows only hard-disk 
device drivers to be _ installed 
dynamically) 

®@ DOS environment variable support 
via MS-DOS set command 


‘‘An extension to the version of the 
OS currently in beta testing, sched- 
uled for simmer 1986, is supposed to 
provide full MS-DOS, Version 3.1, 
compatibility! 

‘After all, if DRI has learned any 
lesson from the past four years, it has 
been that the public has been sold on 
the MS-DOS environment, and DRI 
must provide that functionality in its 
systems software. This only indicates 
to me that DRI is responding to the 
marketplace and if anything is look- 
ing backward to Microsoft’s limited 
OS to see how it can be supported. 

‘Many a systems engineer will 
support the theory that a good oper- 
ating system must be designed from 
the beginning to incorporate the 
structures necessary for real-time 
multiuser/multitasking. Attempting 
to do otherwise invites development 
of a most haphazard and kludged de- 
sign in the attempt to maintain com- 
patibility with whatever the current 
operating system provides. I think 
this problem with MS-DOS will be- 
come more evident as Microsoft at- 
tempts to introduce multitasking and 
multiuser support to its OS. I think it 
is relevant and most significant to no- 
tice that Microsoft did not provide its 
first attempt at multitasking through 
its operating system but through an 
externally run program—Windows. 

“Although it is true that DRI has 
made several heroic blunders in the 


past, I do not believe they should be 
held as some sort of crucifix for it to 
bear. Everyone makes mistakes, and I 
do believe that DRI has and still is pay- 
ing for its! I also believe, however, 
that it is the duty of columnists such 
as yourself to keep an open mind and 
to provide information that benefits 
the computing public at large and not 
to blindly assume such things as MS- 
DOS’ a priori superiority of design. 

“You must remember that 90 per- 
cent of all businesses in the United 
States are small businesses that only 
have need for two to five terminal us- 
ers. LANs are great and very cost-effec- 
tive for six or more users, but for small 
businesses, a multiuser operating sys- 
tem that allows the attachment of 
$400-$500 dumb terminals to a single 
PC/XT/AT isa much more realistic and 
cost-effective approach to increased 
office productivity. The argument 
can be made for the use of multiple, 
cheap, clone PCs in such a situation, 
but how many businessmen would 
want multiple copies of their ac- 
counts-receivable file or inventory 
file on several different machines? I 
believe that multiuser operating sys- 
tems such as Digital Research’s Con- 
current DOS definitely have their 
place in the world. They may not nec- 
essarily fit every situation or need, but 
then neither does the more simplistic 
environment provided by the current 
versions of MS-DOS.”’ 

I don't agree with all of Mr. Mul- 
lan’s arguments, but for once I am go- 
ing to pass up my prerogative as the 
columnist to have the last word on the 
subject. Further comments on the al- 
leged need for multitasking, mul- 
tiuser operating systems in personal 
computers are solicited from DDJ 
readers! 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 9. 
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“Multiple windows.’ 


“Emacs runs on 
MS-DOS, VMS 
and UNIX. It’s my 
company’s standard 





“Icanruna shell or DCL 
command session even 
while editing-’ 





editor.” 


“A hundred times better 
than the UNIX vi editor.’ 





No Two Users Can Agree On Why 





“Programming modes 
to assist me in writing C, 
Pascal, ADA and Lisp”’ 





“UniPress really 
supports Emacs on 
Berkeley and AT&T UNIX, 
and is constantly 
developing Emacs.’ 





“| can associate any 
command to any 
keystroke sequence: 





“Emacs automates the 
code-compile-edit- 
debug process: 





UNIPRESS EMACS" 
Is The Only Choice. 


That's right. No two users can agree on why they’ve 
chosen UniPress Emacs. UniPress Emacs provides so 
much for creating and modifying programs, documents 
and other text files. No other program has such power- 
ful facilities. And we offer Emacs for UNIX™ Xenix™ 
Ultrix™ MS-DOS™ and VMS™ systems. 


UniPress Emacs gives you all the basic text editing 
commands, and goes much further. It allows multiple 
windows to display several files or portions of the same 
file simultaneously, a program’s output, a shell/DCL 
window, a help window, an error listing, an electronic 
mail message, or anything else! 


UniPress Emacs simplifies programming with its C, 
Pascal, ADA and Lisp modes. It checks for balanced 
parentheses and braces, and indents and reformats 
code as needed. “C mode” produces templates of con- 
trol flow in user-definable styles. After compiling, 
Emacs collects any compiler error output in a window. 
Emacs then analyzes this error output and automat- 
ically displays the erroneous source lines, one-by-one. 


In addition, Emacs offers great extensibility through 
macros and the built-in compiled MLisp™ program- 
ming language. The MLisp language provides looping, 
conditional testing and other flow control statements, 
and a rich set of logic, arithmetic and string operations 
which can be combined. 
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Trademarks of: UniPress Emacs & MLisp, UniPress Software, Inc.; UNIX, AT&T Bell Labora- 
tories; VMS, & Ultrix, Digital Equipment Corp.; MS-DOS; Xenix, Microsoft. 





If you're still not convinced about UniPress Emacs, 
call us at 800-222-0550 (Outside NJ) to find out about 
our dial-in demo machine or send in the coupon to 
get more product information. We'll send you our free 
catalog with information about Emacs and our other 
software products. 


UniPress Software, Inc., 2025 Lincoln Highway, Edison, 
NJ 08817. Telephone: 201-985-8000. Order Desk: 
800- 222-0550 (Outside NJ). Telex: 709418 


European Distributor: Modulator SA, Switzerland. 
Telephone: 41 3159 22 22. Telex: 911859 


Japanese Distributor: D.1.T. Inc., Minato-Ku, Tokyo. 
Telephone: 03 586-6580 
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“Electronic mail is only 
one of the many included 
packages | use”’ 


“| can create my 
own customized editor 
commands with 
the MLisp extension 
language: 


COLUMNS 


STRUCTURED PROGRAMMING 


Forth: Philosophy, Standards, and Practical Advice 


rogramming is control; lan- 
p guages that most directly give 

the programmer control 
touch most deeply the programming 
impulse. That’s the appeal of assem- 
bly language: mano a mano with the 
machine’s bare metal. Those who 
prefer high-level languages find in 
Forth an edge-of-the-envelope pro- 
gramming environment. What’s it 
like out there? 

Forth puts the programmer into in- 
timate contact with the insides of the 
language, unlike other high-level lan- 
guages whose compilers are black 
boxes. The Forth compiler consists of 
instructions in Forth itself—the com- 
piler’s right there, where the pro- 
grammer can reach out and touch it, 
not locked away on the other side of 
some impenetrable barrier. Reach 
out, touch it, and put a little spin on it. 

Programming in Forth consists of 
adding new commands to the lan- 
guage. The programmer-created 
commands climb latticelike to the so- 
lution. The command at the top is the 
program; when executed, it answers 
the question posed by the task. This 
topmost command is defined in 
terms of commands lower in the hi- 
erarchy, and those commands are 
defined in terms of commands lower 
still. (Though recursion in Forth is 
possible, it is not used as often as it is 
in, say, LISP.) The program’s founda- 
tion is a small set of primitives writ- 
ten in the language of the computer 
on which the program will run. 

The program may also contain a 
few assembly-language commands 
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added by the programmer at speed- 
critical parts of the application. Most 
of the program, however, will con- 
sist of commands written in Forth: 
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some constitute the Forth nucleus, 
some are the programmer's own 
general-purpose tool words, and the 
remainder are specific to the prob- 
lem at hand. Some of these program- 
mer-created commands extend the 
compiler. But first let’s look at the 
programmer's tools. 

Over time, Forth programmers 
create or collect a set of tiny tools that 
they graft onto the Forth they use. 
(Every Forth implementation pro- 
vides a way for its user to customize it 
through the permanent addition of 
new commands.) Tiny tools percolate 
through the community of Forth pro- 
grammers and in time become assim- 
ilated as regular Forth words. NIP and 
TUCK are close to becoming a part of 
generic Forth. A few tiny tools are 
shown in Listing One, page 104; do 
you know their authors? Before their 
origins are forgotten, we should ac- 
knowledge their creators and refin- 
ers. Send in your own favorite tiny 
tools (with attribution if you can), and 
I'll publish them for general con- 
sumption to expedite the diffusion. 

In addition to these tiny tools, pro- 
grammers build larger tools as well. 
These are generally shaped by the 
kind of applications the programmer 
writes. Later in this column, I de- 
scribe (as a challenge to you) a num- 
ber-input tool I have developed. I 
would be interested in seeing your 
solution. I'll include the best solution 
I get (or, by default, my own effort) in 
a future column. 

Extensions to the compiler (which 
at first I avoided altogether) are the 
source of some of Forth’s magic. Ex- 
tensions are of two types: the CREA- 
TE...DOES> defining commands 
normally used to add new data class- 


es and the IMMEDIATE words that can 
be used to make new control struc- 
tures. Let’s examine the CREATE- 
... DOES> commands now and save 
the IMMEDIATE guys for a future col- 
umn. With a defining command you 
can create a family of structures in 
which all members obey the rule laid 
down in DOES>. 

Suppose, for example, you will be 
using a variety of arrays in some ap- 
plication. Most Forths don’t provide 
an array-defining word: an array- 
creating command is easy to write, 
and different situations demand dif- 
ferent array specialties. Some pro- 
grammers might want the array to 
do a range check on indices; others 
(such as myself) prefer to do any nec- 
essary edits before the indices are 
passed to the array. When some in- 
ternal program routine generates the 
indices within definite bounds, range 
checking would sacrifice speed un- 
necessarily. I discuss a series of varia- 
tions on an array-defining command 
later in this column. 

Because Forth doesn't have a 
“hands-off” compiler whose inter- 
nals are secret, Forth application pro- 
grammers are led within the lan- 
guage. They work outward toward 
their application, but at the same 
time they work inward to tinker 
with the language itself. You don't 
even have to scratch a Forth applica- 
tion programmer to find the systems 
programmer within: the systems 
programmer is right there, working 
alongside the application program- 
mer. In the array-defining com- 
mands, for example, you work to- 
ward adding a kind of type 
declaration to the language, a func- 
tion already embedded within the 
compilers of many languages: in 
those languages, however, you usual- 
ly don’t have a chance to make it 
work in the way you want. 

Every Forth programmer spends 
some time working on the language 
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itself as the application. The systems 
enhancements become part of her or 
his toolkit for future work, and Forth 
grows vinelike to enclose the pro- 
gramming problems most often 
encountered. 

Forth is by design an open-archi- 
tecture language. An accident of his- 
tory plunged Forth programmers 
deep into that architecture from the 
beginning. The first Forth products, 
sold by FORTH Inc., were beyond the 
financial reach of hobbyists. So a 
band of programmers, the original 
Forth Interest Group (FIG), developed 
public-domain Forth systems to pro- 
mulgate the language to hobbyists 
and hackers. The fig-Forth systems 
were distributed in the form of 
source-code listings, so early Forth 
users were willy-nilly systems pro- 
grammers as they typed in the code 
and tuned it to their needs. Many 
commercial Forth products were 
built upon and grew out of these ear- 
ly fig-Forth listings. Control of the 
machine was sublimated into control 
of the language. 


Forth Standards 

Because Forth so readily grows in ev- 
ery direction, standards were need- 
ed to define a common core. Three 
standards have come to be, the later 
supplanting the earlier. The first was 
the FIG standard, a de facto standard 
created by the popularity and wide- 
spread distribution of those early FIG 
listings. This was followed by the 79 
Standard, the first attempt at a formal 
and deliberate standard. The 79 Stan- 
dard benefited from hindsight: It 
contained what the original fig-Forth 
would have included if its creators 
had had more Forth experience in- 
stead of learning while doing. The 
latest standard is the 83 Standard—an 





Learn and Use AI Technology 
In Your First Evening 
With PROLOG-86 


A complete Prolog Interpreter, Tutorial, and set of Sample Programs: 





[1 Modify and write Expert Systems. [1] Write Symbolic Maih or Abstract 
Use the simple ‘‘Guess the animal’’ Problem Solving Applications 
example on the Tutorial or use the This is a complete Prolog program to 
sophisticated system for Section 318 of convert from Farenheit to Centigrade: 
the US Tax Code written by one of the —f_to_c(C,F):- C is(F-32) *5/9. Planning 
PROLOG-86 authors and published programs and games are included to 
in the March, 1985 issue of Dr. Dobb’s _ help you learn. 


Journal. 

(1) Understand Natural Language 

Use the sample program that produces 
a dBase DISPLAY command as output. 
Programming experience is not required, but a logical mind is. 

Prolog-86 Plus for $250 adds: Windowing, 8087, 640K memory access, random access 
files, strings support and definate clause grammar. 

RECENT IMPROVEMENTS: Floating point support, MSDOS commands, on-line 
help, load Editor. 

AVAILABILITY: All MSDOS, PCDOS systems. 


1) BECOME FAMILIAR WITH 
PROLOG IN ONE EVENING. 
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Brand New From Peter Norton 
A PROGRAMMER’S EDITOR 


that’s Lightning fast with the hot 
features programmers need 


edd] **This is the program- 
oe mer’s editor that I wished 
(om I’d had when I wrote my 


effort to polish, refine, and extend 
the 79 Standard. 

In most of the computer industry's 
standards efforts, intense conflicts 
arise between unassailable logic (my 
position) and pointless pig-headed re- 
sistance (your position). This dynamic 
could also be detected in the develop- 
ment of the 83 Standard. When the 83 
Standard was announced, the Forth 
community’s delight at discovering 
refinements (read: changes) from the 
79 Standard was muted. The spirit of 
innovation had acquired a conserva- 
tive cast. 


Inside the IBM PC, 
and the Peter Norton 
Programmer's Guide. 


Norton Utilities. You can 
Direct from the program your way to 
man who gave you glory with The Norton 
The Norton Utilities, om Editor. 








Peter Norton Computing, Inc., 2210 Wilshire Boulevard, 
Santa Monica, CA 90403, 213-453-236 1. Visa, 
Mastercard and phone orders welcome. 


The Norton Editor™ is a trademark of Peter Norton Computing, Inc. © 1986 Peter Norton Computing. 
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Those moving up to 83 Standard 
Forths should take note of Ray Dun- 
cans article ‘‘Converting FIG-Forth to 
Forth 83”'in the May 1984 DDJ, Robert 
Berkey’s two articles entitled ‘‘79- 
Standard to 83-Standard” in Forth Di- 
mensions (vol. 6, nos. 3 and 4), and Ke- 
vin McCabe’s review of the 83 
Standard in the August 1984 issue of 
Byte. 

The 83 Standard defines the behav- 


ior of a core of Forth words. Several 
different Forths adhere to the 83 
Standard; their standard words work 
in the prescribed manner, though 
they may differ in speed of execution 
because of the differences in how 
they were implemented. The exten- 
sions (such as the file-support system) 
to these Forths are not governed by 
the standard and thus may differ 
considerably, and a particular Forth 
may be tuned to a specific machine— 
for example, it might support func- 
tion keys and a speaker, both of 


SecretDisk 


A “...breakthrough for the field of 
data-security and encryption systems.” 


~PC Week 


PC WEEK REVIEWS said it better than we could. “Until now. 
these (PC data-security and encryption ) systems have been 


nightmarish creations... 


“With SecretDisk, data security becomes a practical, trans- 
parent function—to the point where the processes of creating, 
manipulating and using encrypted, protected files are indis- 
tinguishable from those associated with normal DOS use. 


: Software designed 
Zo for 1M PC 


pases 


[attics 


“SecretDisk has the feel of a 
landmark product. By making 
data encryption this inex- 
pensive...” How inexpensive? 
Just $119.95 to keep your 
business your business. 





Circle no. 101 on reader service card. 


114 


which go beyond issues addressed by 
the standard. 

Several implementations of 83 
Standard Forth are available. Labora- 
tory Microsystems and Micromotion 
have 83 Standard Forths for a variety 
of computers. Harvard Softworks has 
an overlay file that makes its Forth 
meet the 83 Standard. F83, a Forth 
written by Henry Laxen and Michael 
Perry, is a public-domain version of 
an 83 Standard Forth. 

Because the 83 Standard specifies 
only a 16-bit implementation, 32-bit 
Forths (which can address more than 
64K of instruction space) are by defini- 
tion nonstandard. Some 32-bit Forths, 
however, (such as Palo Alto Shipping 
Company's Forth for the Macintosh 
and LMI's Forth+ products for the 
8088/8086 and the 68000) strive to be 
standard in all other respects. 

Although the 83 Standard will 
probably stand as the latest effort for 
quite a while, it fails to address some 
important topics: floating point (a de 
facto standard seems to be emerging), 
graphics, and a standard implemen- 
tation for Forths that inhabit memo- 
ry beyond 64K. These issues are nec- 
essarily being addressed by Forth 
vendors, and a consensus may in 
time emerge and be recognized in a 
later standard. 


Where Is It Used, and 

Who Uses It? 

Forth is well known as a language for 
data acquisition and machine and 
process control and is often the high- 
level language hiding inside the ROM 
of an intelligent machine. But Forth is 
found laboring in other vineyards as 
well. Business applications, for exam- 
ple, are not commonly thought of as 
Forth territory, but Forth was in busi- 
ness from its commercial birth. When 
Forth emerged from its womb of as- 
tronomical telescope control and was 
delivered to FORTH Inc.’s first custom- 
er, it was for a business database sys- 
tem in a custom application. How 
many of you are writing Forth code to 
address applications that might be 
thought of as food for COBOL? 

For that matter, what is the range 
of application areas addressed by 
Forth? Many software products don’t 
reveal their lingual origins unless the 
language in question is riding high or 
deemed especially appropriate for 
the given application area. Do you 
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know accounting packages that are 
unexpectedly Forth at heart? Data- 
bases? Games? Instructional pro- 
grams? I would like to hear about in- 
triguing uses of Forth. Send me 
information that I can print, and let's 
see what an honor roll of Forth pro- 
grams looks like. 

Forth programmers are an inter- 
esting lot. Compared to program- 
mers of most other languages, rela- 
tively few Forth programmers have 
degrees in computer science. Many 
(most?) are self-taught programmers: 
they had a project that involved some 
programming and found Forth a 
good tool—easy to learn, quickly pro- 
ductive, and well adapted to an ex- 
perimental approach. These charac- 
teristics result from _ Forth’s 
evolution: a working language 
shaped in the field by a programmer 
who had to fit big solutions into small 
computers in little time. 

Forth programmers include a high 
proportion of hardware-oriented 
people who enjoy working at the 
boundary between software and 
hardware, using knowledge gained 
by experimentation and experience. 
Forth programmers abhor protective 
protocols and demand the ability to 
grab the guts of the hardware and 
software. They are an innovative lot, 
generally impatient with theory in 
their eagerness to get the job done. 
They are willing to share their idea 
but are sometimes reluctant to 
change their own approach. This 
leads to the reinvention as well as the 
refinement of techniques. 


Where Can You Talk 

with Them? 

Forth people are scattered across the 
country. Many are members of the 
Forth Interest Group [P.O. Box 8231, 
San Jose, CA 95155; (408) 277-0668). FIG 
publishes a journal and also has a 300- 
baud bulletin board for discussions 
(no files). It’s at (415) 962-8653—press 
two carriage returns when you con- 
nect. FIG’s local chapters across the 
country provide opportunities for 
face-to-face contact. 

DDJ includes Forth offerings in its 
own CompuServe forum (GO DDJ at 
the ! prompt). Creative Solutions, a 
Forth vendor, also hosts a Forth dis- 
cussion group on CompuServe (GO 
FORTH). Two exclusively Forth bulle- 
tin boards are the East Coast Forth BBS 
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(703) 442-8695] and the West Coast 
LMI BBS [(213) 306-3530]. Both operate 
at 300/1200/2400 bps, are available 
around the clock, and include both 
discussion and files of source code. 


A Look at Arrays 
Array-defining words are the five-fin- 
ger exercises of defining words. It's 
easy to extend the compiler to build 
arrays that match your taste and 
needs exactly. Listings Two through 
Eight trace one path of development 
for an array-defining word. 

Listing Two, page 104, shows a first 
attempt. Though this is certainly 
good enough for workaday use, it has 
a couple of drawbacks: it defines ar- 
rays only for single-precision num- 
bers, and the use of ARRAY for the 
name, though an obvious choice, re- 
sults in awkward and un-English 
phrasing in the source code. 

You will note that the stack com- 
ment following DOES> contains one 
address in angle brackets. This is the 
address that DOES> places on the 
stack at execution time. I look at the 
stack comments as I write the defini- 
tion, and if I slip and forget that this 
address is present, I write bugs. I put 
the address in brackets to indicate 
that it is supplied by the word itself. 

Listing Three, page 104, shows a 
more flexible array-defining word: It 
can create an array of bytes, cells, or 
double-precision numbers. The 
name FOR is used instead of ARRAY to 
make the code read more naturally. 
Picking good names for Forth words 
is a difficult art; you can be led astray 
by an impulse to name words accord- 
ing to their internal implementation 
rather than with an eye to their use. 

At creation time, FOR stores the ar- 
ray type (the number of bytes an en- 
try occupies) into the first byte of the 
array area and initializes the rest of 
the array to Os. The index is present- 
ed at execution time, and the type is 
retrieved (with COUNT). The product 
of the type and the index then gives 
the offset to the entry, and this offset 
(possibly 0) is added to the address of 
the first entry. 

This definition, however, makes 
the programmer pick the correct 
storage or retrieval word. Every deci- 
sion the programmer makes repre- 
sents an opportunity to decide incor- 
rectly. Moreover, if I happen to use 
the wrong storage or retrieval word, 


it is hard for me to spot the error. If 
the right kind of word is in the right 
place, it looks—well—right. If I use 
@ with a byte or double-precision ar- 
ray (when I should have used C@ or 
2@), the result is wrong, but I have a 
devil of a time seeing the error, even 
when I am looking at it. 

Listing Four, page 104, shows one 
solution: give that responsibility to 
the array word. The flags PUT and 
GET determine the direction in 
which the datum will move. When 
the array word is executed, the 
DOES> clause of its parent FOR uses 
the type number (a copy of which it 
momentarily stashes on the return 
stack while it does other work) to dip 
into either STORES or FETCHES to re- 
trieve the correct operation to per- 
form. (The command / turns on the 
compiler, and so the stores and 
fetches following are not immediate- 
ly executed; rather, their (2-byte) ad- 
dresses are stored into the dictionary. 
The / turns the compiler off again.) 

I often use bit arrays to save room. 
Listing Five, page 104, shows my col- 
lection of bit tools; these appeared in 
a slightly different form in an article 
in Computer Language. The prefix + 
for “turn on” and — for “turn off” 
follow naming conventions suggest- 
ed by Kim Harris (see later). I use ~ as 
a prefix meaning toggle. @BIT uses 
the word FLAG to force nonzeros to 
the 83 Standard Boolean value for 
true (—1) so that the fetched value 
will work appropriately with logical 
operators such as AND and OR. You 
should note that the NOT in the defi- 
nition of —BIT is the 83 Standard NOT, 
which operates bitwise (as do the 
other logical operators AND, OR, and 
XOR). The 79 Standard NOT was mere- 
ly asynonym for 0=. If you have not 
yet moved to an 83 Standard Forth, 
you should replace NOT with —1XOR. 

The FOR in Listing Six, page 104, can 
also create bit arrays. For arrays of 
bytes, cells, or doubles, this FOR 
works exactly like the FOR in Listing 
Four does. The range of values that 
can be stored in a bit is limited, so I 
embed the PUT function in SET, ZAP, 
and FLIP to make the phrases read 
better in the bit context. 

At one time I would have stopped 
here. But Kim Harris has pointed out 
that whenever you create a new data 
structure, you should also create a 
word to display its contents. These 
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“inspection” words inevitably repay 
their development cost as soon as you 
begin to use the new structures. 
(Think of trying to use the stack with- 
out .S to let you look at what’s there.) 

So I go one step further. The dis- 
play word needs to know how many 
elements to display, so a new FOR is 
shown in Listing Seven, page 105. 
This FOR stores the number of slots as 
part of the array information. I then 
need a word to move past the cell 
holding the array size to the byte 
where the type is stored. Rather than 
put this step in the definition as a 
(subsequently) mysterious 2+, I fac- 
tor it out for separate definition as 
> TYPE. If I move to a 32-bit architec- 
ture, I'll know to modify this word 
accordingly. >DATA is defined 
similarly. 

My first impulse was to have SPILL 
just be a constant with a negative val- 
ue. FOR’s DOES> clause would then 
be modified to first check the sign of 
the index. If the index was positive, 
DOES> would do its usual work of 
storage and retrieval; if the index was 
negative, DOES> would know that 
what was wanted was a display of 
the array contents and it would in- 
clude the code for that. 

I rejected this approach, even 
though FOR’s definition could still be 
made readable by factoring out some 
of the subfunctions. The display func- 
tion is only for development, but FOR 
is a production word and so it should 
not include development tasks. By de- 
fining the display word separately, I 
don't have to include it in the produc- 
tion version of the program. 

Listing Eight, page 105, shows the 
development of SPILL, which expects 
to be followed by the name of an ar- 
ray. SPILL displays only five double- 
precision numbers per line because 
of their potential length; otherwise 
ten array entries are shown per line. 
/LINE starts a new line when appro- 
priate. My naming convention for 
words that execute conditionally is to 
use } as a prefix. This doesn’t match 
the example of ?DUP, but I prefer to 
restrict my use of the prefix ? to 
words that expect a flag. You can 
read } as ‘“‘maybe.”’ 

In my first iteration of developing 
the bit display, bits were shown in 





the ‘natural’ way, as Os and 1s. [Be- 
cause @BIT converts bits to Boolean 
flags (0 and — 1), I used NEGATE to pro- 
duce more conventional bit values (0 
and 1) for the display.] On testing the 
word, however, I found that I 
couldn't see the 1s for the Os. So I re- 
vised the display to show “‘off”’ bits as 
hyphens. The 1s of the “‘on”’ bits then 
stand out nicely. 

I assumed that an array will have 
fewer than 10,000 elements, and so 
the line label is set to have at most 
four digits. In fact, the display word, 
like the array word, reflects any 
number of assumptions about how 
the data should be presented. These 
reflect my taste and requirements. 
(Two examples in addition to those 
mentioned above: even though the fi- 
nal FOR knows the number of slots in 
the array, I still prefer that the array 
word not perform a range check on 
the index; and single-precision num- 
bers are displayed with. instead of U. 
because the arrays I use are more 
likely to contain negative numbers 
than addresses.) It is the strength of 
Forth that you can tailor these tools to 
suit yourself. 


Naming of Parts 

I have learned the hard way that 
JOAN and JOHN would be poor names 
for program words. Not only do they 
fail to tell the reader what is going on 
but they also are spelled the same ex- 
cept for the difference of a single let- 
ter and (worse) they are the same 
kind of word. You might type ‘‘H” 
when “A” is intended. The error will 
be accepted because JOHN is a valid 
word. The program will even work 
after a fashion because JOHN and 
JOAN fulfill similar functions. And 
once again I would be trying to finda 
bug that consists of the right kind of 
word—but not the right word—in 
the right place. Whenever possible, I 
make sure that names differ by more 
than a single letter. 

Another poor name choice that I 
considered briefly was TO for PUT. 
The problem with TO is that it is a 
homonym for 2. Homonyms are an 
annoyance when you try to talk 
about the code. 

If you ever use hex, it’s also a bad 
idea to use names that could be num- 
bers. This problem can be alleviated 
by making it an absolute rule to write 
hex numerals with a leading 0. 


ee —s 


A pattern of naming Forth words 
has developed slowly. Kim Harris has 
compiled a reasonably large set of 
naming conventions that seem to be 
generally accepted. These have been 
published as an appendix to Leo Bro- 
die’s Thinking Forth (Englewood 
Cliffs, N.J.: Prentice-Hall, 1984) and as 
papers in the 1984 Rochester Forth 
Applications Conference Proceedings 
and the 1983 FORML Conference Pro- 
ceedings. 


A Number-Input Word: 
Challenge to Readers 
Programmers often want users to en- 
ter numeric information. The chal- 
lenge is to develop an easy-to-use 
command with a user-friendly face. 
I'll now discuss some suggested de- 
sign specifications. 

Each digit is displayed on the 
screen as it is entered. The display is 
“calculator” style, with digits appear- 
ing (and disappearing) at the right- 
most end of the number. The routine 
inserts commas in the display as 
needed. The minus key operates as a 
toggle (which accommodates the usu- 
al entering the minus sign at the be- 
ginning but also permits it to be 
turned on or off after the number is 
underway). Backspace and Delete 
(and any other left-arrow key you 
might have on your computer) rub 
out the rightmost character (which 
might be a minus sign or a decimal 
point). The remaining characters in 
the field shift one place to the right to 
fill the gap. Entering “B” or “C’ (up- 
percase or lowercase) erases every- 
thing that has been entered. Entering 
any illegal character or attempting to 
delete when the field is blank results 
in a beep. Thus every key either pro- 
duces some alteration in the display 
or sounds a bell. 

If the user enters a 0 to start, enter- 
ing additional 0s immediately there- 
after does not result in a repeating se- 
ries of 0 (unless, of course, a decimal 
point was entered first). Other digits 
do repeat. As a courtesy to the user, 
the letter / (uppercase or lowercase) is 
accepted as the number 1 and the let- 
ter o as the number 0. 

The programmer specifies wheth- 
er a minus sign is allowed; if it is not, 
pressing the minus key produces a 
beep but no entry. Similarly, if the 
programmer indicates no decimal 
places, the decimal point is beeped as 
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invalid input. 

The format of the commands the 
programmer uses to manipulate the 
routine in his or her program is as 
follows: 


1. n PLACES—n is the number of 
places to the right of the decimal 
point. The value presumably is 
stored in a variable. The number the 
user enters is collected as a double- 
precision integer, so the number of 
decimal places is a scaling factor. A 
decimal point is a legal character for 
the user to enter only if the number 
of places is greater than zero. The de- 
fault is zero places. If the user presses 
Return after entering only the 
whole-number portion of a number 
with decimal places, the decimal 
point and trailing Os are supplied by 
the routine. 

2. NEG-OK ON—NEG-OK is a variable. 
The default value is false (off). Minus 
signs are accepted only if NEG-OK is 
on. 

3. d n —1 DIGITS or n O DIGITS—The 
true/false flag (embedded in some 
mnemonic name) tells the routine 
whether it is being supplied with a 
number to begin with. If the flag is 
true, the (double-precision) number is 
displayed in the entry field (with com- 
mas, minus sign, and decimal point as 
appropriate) for the user to accept or 
alter as needed. If the flag is false, no 
number is supplied and the routine 
begins with a blank entry box. 

The single-precision number n 
specifies the total number of digits 
the user may enter. This value, to- 
gether with the number of places, de- 
termines the number of digits al- 
lowed to the left of the decimal point. 
The sequence 2 PLACES 5 NEW DIGITS, 
for example, means that there will be 
at most three digits to the left of the 
decimal point and at most two digits 
to the right. (NEW here is assumed to 
be a constant equal to 0.) 

DIGITS presents an inverse-video 
field at the current cursor location. 
The field allows room for minus (but 
only if NEG-OK is on), for commas (but 
only as many as can be entered given 
the number of digits allowed), and 
for a decimal point (but only if more 
than zero places have been speci- 
fied). The field includes a blank in- 
verse space before and after the 
spaces needed to hold the number, 
sign, commas, and decimal point of 
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the number being entered. 

When the user signifies the end of 
input by pressing the carriage re- 
turn, the stack contains a double-pre- 
cision number (the value of the entry) 
under a single-precision number (the 
number of digits the user actually en- 
tered). This allows the program to 
distinguish ‘‘no entry” from an en- 
tered 0. 


Send me your own solution, pref- 
erably in an 83 Standard Forth. In a 
future column, I'll take a look at the 
results. 


Operating Systems and 
Text and Block Files 
Forth was originally its own operat- 
ing system: It seized control of the en- 
tire computer and handled every- 
thing itself. This Forth operating 
system included a simple and effec- 
tive way to access the disk directly 
using a block number. Each block 
was 1K, and source code was dis- 
played on the screen in one-block 
chunks, so blocks were also called 
“screens. ” 

As the micro world grew to in- 
clude more applications and hard- 
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disk storage became more common, 
the omnipresence of the operating 
system became inescapable. Few us- 
ers were willing to reboot between 
applications simply so that Forth 
could run its own show, and fewer 
still wanted to partition their hard 
disk to allow different disk formats to 
share the space. (Embedded applica- 
tions do not have this problem, of 
course, and the Forth operating sys- 
tem is still often found in that envi- 
ronment as well as in totally dedicat- 
ed systems, such as for process 
control and data acquisition.) 

Forth now commonly runs under 
an operating system and makes use 
of the operating system’s I/O ser- 
vices. Blocks are still used, but in this 
environment they reside within files. 

The efficacy of the block files is a 
topic of perennial debate. Some pro- 
grammers prefer text files so that 
they don’t have to group the source 
code into 1K blocks. Others accept the 
modular discipline of the 1K chunks 
and as a bonus retain the the ability to 
incrementally compile a module un- 
der development. That is, they load 
and test a block until it works; write, 
load, and test the next block; and so 
on—instead of reloading the entire 
file with each change. Block files, 
with their separately loadable 
blocks, fit the interactive program 
development style that is Forth’s spe- 
cial tactic. 

One practice sometimes seen in 
block files—using block-number 
ranges to create subfiles within a 
file—seems worth discarding. With- 
in a block file a programmer might 
use, for example, blocks 5— 10 are for 
one module, 15—25 for another, 
30—40 for a set of data pointers, and 
block 50 and beyond for the data. 
These block-number ranges are a 
hangover from the “‘file’’ systems 
typically used in native-mode Forths, 
when the only disk access was by 
block number. 

The gaps in the block ranges are 
intended to simplify expansion and 
maintenance of the ‘“‘subfile”’ system. 
Because Forth stores 1K per screen, 
though, this technique eats up too 
much storage room in operating sys- 
tems such as MS-DOS or PC-DOS, where 
files cannot have gaps. Moreover, 


adding blocks to accommodate new 
functions will often throw a monkey 
wrench into the numbering scheme 
and invalidate the block numbers in 
the load block. 

It is simpler and more efficient to 
exploit the strengths of the file system 
and use different files for separate 
submodules of source code. Forths 
running under an operating system 
will include a complement of file- 
handling words so that the program 
can open and close files as needed. 
Different files of Forth source code, 
whether block or text files, can be 
called during a load sequence with 
some word such as INCLUDE. The load 
block, instead of specifying block 
number ranges, can INCLUDE specific 
file names, and those files can expand 
or contract as the program is main- 
tained and revised, with no effect on 
the load instructions. 

Indeed, if a particular submodule 
(for example, the number-input rou- 
tine described earlier) turns out to be 
generally useful, it is quite handy to 
have it as a file of its own to be IN- 
CLUDEd in aS many programs as 
needed. Some Forths allow the devel- 
oper to create small, relocatable bina- 
ry overlays so that such modules can 
be called quickly and serve as a com- 
ponent of a Forth library of tools. 

Factoring modules into separate 
files is an extension of the idea of fac- 
toring functions into separate words. 
A Forth programmer learns through 
experience when a routine deserves 
its own identity, whether as word or 
as file. 

There’s no denying, however, that 
blocks, whether in files or in native 
mode, consume a lot of disk space. 
Most of this is because of their puffi- 
ness: a block occupies 1K of disk 
space even though a considerable 
part of that 1K may be blanks. That's 
why Forth programmers dearly love 
the archiving programs that squeeze 
out the blanks when the file is stored 
in archive format. My archived files 
are typically 20 percent of their origi- 
nal size. (This, of course, includes 
compression beyond merely squeez- 
ing down the blanks.) 

The program I use is a shareware 
program called ARC. It is under con- 
tinuing development by System En- 
hancement Associates (21 New Street, 
Wayne, NJ 07470). You can buy it 
from the firm for $50, but it prefers 
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that you obtain the program through 
the normal shareware distribution 
channels. Version 5.1 was released in 
January, but new versions appear 
with disconcerting frequency. A ver- 
sion can read and decompress ar- 
chive files created by any lower- 
numbered version but not vice versa. 

ARC builds archive files that con- 
tain as many compressed files as you 
want. You can add files to an archive 
file and extract them quickly when- 
ever you need them; it is also easy to 
update an archived file with a later 
version. The use of ARC makes the 
bulkiness of the block file much less 
of an issue. 


Background 

I plan to be a regular denizen of these 
pages, so you might want some idea 
of my programming background and 
Forth experience. I started program- 
ming on an IBM 1401, and the lan- 
guage was Autocoder. From there I 
moved on to FORTRAN, dipped into 
BASIC, glanced at APL and Pascal, and 
at last discovered Forth through an 
article in DDJ several years ago. 

I got acopy of Miller Microcomput- 
er Services’ MMSForth and found 
Forth irresistible. Because I wanted to 
share and sell my programs, I moved 
to Forth Technology’s Forth/Level 2, 
a spin-off of FORTH Inc.’s polyFORTH. 
Forth/Level 2 required no license 
fees or royalties, and its TURNKEY 
word was an easy way to produce 
bootable programs. 

Finally, however, I had to recog- 
nize that the world of business appli- 
cations in which I worked was in- 
creasingly dominated by PC-DOS/MS- 
DOS. Native-mode Forths did not fit 
that environment comfortably, par- 
ticularly as hard disks became more 
common. I moved to Laboratory Mi- 
crosystems’ PC/Forth because it 
worked well with DOS and because it 
was one of the few vendor-support- 
ed, 83 Standard Forths then available. 
It also required no license fees or roy- 
alties for turnkeyed programs. 

I did not really consider a public- 
domain Forth. Because I write pro- 
grams for a living, I want vendor sup- 
port. I don’t want to be the one who 
has to write every extension package 
and constantly track new technology 
and adjust my system to fit. I feel that 
my time is better spent on billable 
projects, and I am willing to pay the 
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minor upgrade charges to have the 
vendor keep the system tuned to 
new machines and new versions of 
the operating system. 

Currently I am completing a rea- 
sonably large Forth application 
(about a thousand screens), a soft- 
ware package that will be published 
RSN. I am also an outside contractor 
for Laboratory Microsystems, assist- 
ing with technical support and docu- 
mentation—a natural progression 
from my own extensive use of the 
company’s technical support. 


C-terp 


The C 


Interpreter 
You Won't 
Outgrow 


C-terp will grow with you as you progress 
from novice through professional to guru. 
Unbelievable, but true, the easiest-to-use 
C interpreter will provide you with the 
most advanced programming features for 
upward growth. Our exclusive object 
module support enables you to add 
libraries (like HALO, PANEL, Windows for 
C, etc., or your own homebrew libraries) 

to C-terp as you add them to your comput- 
ing repertoire. Use C-terp as a microscope 
on your libraries! Flip a bit and allow our 
software paging (NEW) to handle those 

big jobs! There are no fixed-size tables 

to overflow, and C-terp can be configured 
for different screens and screen adapters 
(NEW). With multiple modules and full 
K&R support, we offer a dream C environ- 
ment. 


@ Our new improved configurable editor 
competes with anything going. 


@ Speed -- Linking and semi-compilation 
are breathtakingly fast. 


@ Convenience -- Errors direct you back 
to the editor with the cursor set to the 
trouble spot. 


e Symbolic Debugging -- Set breakpoints, 
single-step, and directly execute C ex- 
pressions. 


@ Compatibility guaranteed — batch file to 
link in your compiler’s entire library. 
Supported compilers include: 
Computer Innovations C86, Lattice C, 
Microsoft C 3.0, Mark Williams C86, and 
Aztec C. 


@ Many more features including batch 
mode and 8087 support. 


From my experience, I know the 
above-mentioned Forths better than I 
do others, but Iam sure that my read- 
ers will expand my horizons. You are 
welcome to write to me on the DDJ 
Forum on CompuServe or care of the 
magazine. I look forward to hearing 
from you. 

DDJ 


(Listings begin on page 104.) 


Vote for your favorite feature/article. 


Circle Reader Service No. 10. 





What Our Users/ 
Reviewers Are Saying 


.. easy to use, powerful, and a 
timesaver.” 


.. we absolutely LOVE C-terp.” 


.. has restored my faith in 
interpreters.” 


..a programmer's dream.” 
.. wonderful technical assistance.” 


“... increased our productivity by a 
factor of 40.” 


.. the best C product ever, in any 
category.” 





Price: $300.00 (Demo $45.00) 
MC, VISA 


Prices include documentation and shipping 
within U.S. PA residents add 6% sales tax. 
Specify compiler. 


@ C-terp runs on the IBM PC (or any BIOS 
compatible machine) under DOS 2.x 
and up with a suggested minimum of 
256 Kb of memory. It can use all the 
memory available. 


* C-terp is a trademark of Gimpel Software. 


CIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(215) 584-4261 
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PROGRAMMER’S SERVICES 


OF INTEREST 





PCC/Systems has intro- 
duced cc:Mail for local- 
area networks. With this 
system, users of the IBM PC 
and compatibles can send, 
receive, store, and edit 
electronic message enve- 
lopes. Anything created on 
a PC, such as text, graphics, 
data files, and display 
screens from other soft- 
ware application  pro- 
grams, can be sent to an- 
other PC in an envelope. 
The cc:Mail package in- 
cludes a full-featured word 
processor with a built-in, 
felt-tip highlighting pen 
and a graphics/drawing 
package. Users have a 
choice of color palettes and 
can edit materials from 
other sources. Screen con- 
tent from any application 
program can be frozen to 
create snapshots, which 
can then be edited and in- 
serted into messages. Each 
message can include any 
combination of up to 20 
text, graphics, and file 
items. The starter package 
for ten users costs $995, and 
expansion kits are 
available. 

Ashton-Tate has intro- 
duced the dBASE III Plus 
LAN Pack, designed to en- 
able multiple users to share 
dBASE Plus files on a local- 
area network. Equipped 
with built-in multiuser and 
stand-alone capability, 
dBASE III Plus can network 
an unlimited number of us- 


ers. Combining one dBASE 
Il Plus with one LAN Pack 


provides a four-user net- 
work. dBASE Ill Plus and 
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dBASE III Plus LAN Pack can 
run on any network that 
supports PC-DOS, Version 
3.1, including the IBM PC 
Network, 3Com’s 3Plus, 
and Novell’s Advanced 
NetWare, Version 1.01, or 
later. Other LANs that use 
an operating system com- 
patible with PC-DOS 3.1 can 
also be supported. 

Kyss!, an advanced oper- 
ator interface with system 
enhancement facilities, is 
available from The Infor- 
mation People. Kyss! in- 
cludes a menu generator, 
extended DOS batch-pro- 
cessing capabilities, disk 
file management, job 
tracking, and a text display 
facility for preparing on- 
line instructions. The sug- 
gested retail price is $150 
for single-user versions; 
network versions begin at 
$300 for six-user systems. 

The MLink Data Commu- 
nications System from 
Corporate Microsystems 
includes the Development 
System, a software pack- 
age recommended for sys- 
tem developers. MLink 
also includes terminal em- 
ulation, an on-line help sys- 
tem, a configuration sys- 
tem, three file-transfer 
protocols, a script inter- 
preter, a script debugger, a 
script assembler, 24 appli- 
cation scripts, and script 
source files. The system is 
designed to facilitate mi- 
cro-to-mainframe, micro- 
to-micro, PC-to-Unix, and 
other data-communication 
links. Prices vary accord- 
ing to configuration. 

Information Technol- 
ogies’ LinkUp 3270 SNA, 
3270 BSC, and 3770 SNA em- 
ulations have been en- 
hanced. The products fea- 
ture foreground/ 
background operations, 
enhanced multiple print- 
ing Capacities, and up to 32 
simultaneous _ sessions. 


They support printer out- 
put to standard DOS print- 
ers, a high-speed serial 
printer, and spooling of 
print files to disk. All 
modes can be driven simul- 
taneously. The stand-alone 
coprocessor version is 
available for $995. 

VersaLAN is a local-area 
network solution from 
Soitware Clearing House 
that includes software, 
hardware, and wiring. 
VersaLAN can handle up to 
32 PCs and is compatible 
with PC-DOS and MS-DOS 
and the IBM PC Network. It 
also has software hooks so 
that advanced users can 
program it to add functions 
such as private data en- 
cryption or links to user- 
written software. In addi- 
tion, VersaLAN features 
electronic mail, file trans- 
fer between micros, and 
hard disk and printer shar- 
ing. The product costs $250 
per PC; additional PC con- 
nections cost from $175. 

Polygon Associates has 
enhanced its poly-COM/240 
terminal-emulation and 
file-transfer communica- 
tion software package. The 
package now offers hot- 
key control for switching 
between a DOS screen and 
VAX terminal session with- 
out losing the communica- 
tion link, instant toggle be- 
tween text and graphics 
modes, host control com- 
mands for unattended or 
distributed applications, 
and a screen-saver func- 
tion that blanks the PC 
screen after a defined peri- 
od to reduce video screen 
wear. 


Security 

Several products that 
guard against unautho- 
rized computer access are 
available from Digital 
Pathways. The Defender 
IID provides direct-dial user 


verification. The _ verifica- 
tion process takes only one 
phone call, requiring a val- 
id access code, password, 
and/or SecureNet Key vali- 
dation. The Defender IIk is 
a data encryption manager 
for highly secure dial-up 
links. It enables remote us- 
ers with PCs to install an 
encryption board to pro- 
tect data in transmission. 
The SecureNet Key pro- 
vides an additional level of 
security for any Defender 
II system. Each user is pro- 
vided with a credit-card- 
size key that has been ini- 
tialized with a unique key 
number. The user then 
arms the key with a per- 
sonal identification num- 
ber. Prices vary according 
to configuration. 

Release 2.0 of System 
Automation Software’s 
Logger computer resource 
monitor is a RAM-resident 
program that tracks and 
documents the everyday 
use of IBM PC, PC/XT, PC/AT, 
and compatible comput- 
ers. The new version in- 
cludes log-in security and a 
summary option in the re- 
porting subsystem that 
summarizes computer us- 
age by user, directory, and 
program and calculates the 
duration of each activity. 
Logger’s retail price is 
$74.95. 


Artificial 
Intelligence 

XSYS is an advisory expert- 
system shell from Califor- 
nia Intelligence that runs 
on IBM PCs. In a typical sce- 
nario, the system asks the 
user problem-related ques- 
tions and displays selection 
menus, depending on 
which specialized knowl- 
edge base the user has se- 
lected to attach to the ge- 
neric XSYS shell program. 
The system can also ex- 
plain, step-by-step, its pro- 
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gress and conclusions dur- 
ing and after’ each 
consultation. XSYS’ facilities 
include knowledge attri- 
butes, variables, and opera- 
tors in the if and then parts 
of any rule, handling of un- 
certainty and negation, 
and automatic concatena- 
tion of hierarchically relat- 
ed knowledge bases. The 
system requires an IBM PC, 
PC/XT, or PC/AT with at 
least 640K and DOS 2.X. The 
license fee for a single-CPU 
copy is $995. 

Borland International's 
fifth-generation language 
development system, Tur- 
bo Prolog, is designed to in- 
fer or derive information 
from stated facts. The PRO- 
LOG language employs a 
theorem-proving = algo- 
rithm for logic program- 
ming in order to take a set 
of premises and arrive at an 
appropriate conclusion. 
The algorithm utilizes pat- 
tern matching and back 
tracking. Turbo Prolog is 
priced at $99.95 and is avail- 
able for IBM PC and compat- 
ible microcomputers. 

The GCLisp 286 Develop- 
er from Gold Hill Comput- 
ers includes a memory in- 
terpreter that. features 
lexical scoping and the 
ability to address up to 15 
megabytes of physical 
memory. It also features a 
memory compiler de- 
signed to allow applica- 
tions to run up to 15 times 
faster than normal. The 
GCLisp 286 requires an IBM 
PC/AT or compatible with 
at least 2 megabytes; PC-DOS 
3.0 or later; one double-sid- 
ed, double-density or quad- 
disk drive; and a hard disk. 


Application 
Development 

Orchid Technology's PC- 
turbo 286e utilizes an 8- 
MHz 80286 CPU, 80287 
match processor socket, 
and a 16-bit internal system 
bus. With the connection 
of an optional RAM card, 
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the PCturbo 286e accom- 
modates the Lotus/Intel/ 
Microsoft Expanded Mem- 
ory Specification. PCturbo 
286e with 1 megabyte of 
RAM costs $1,195. 

MasterSweep-File Main- 
tenance Utility is a disk util- 
ity from The Software 
Store that gives users ac- 
cess to disk directories and 
files. It enables users to 
find, view, copy, print, re- 
name, move, delete, or tag 
files, and it supports path 
directories under PC-DOS. 
MasterSweep costs $49 and 
is available for PC-DOS and 
CP/M-80 computers. 

PRO-C is a software pack- 
age from Majic Software 
that steps a developer 
through an application 
definition and then gener- 
ates a C program. The 
product comes with a half- 
megabyte of context-sensi- 
tive, on-line help that is 
available at the touch of a 
key. Its generic record-re- 
trieval mechanism allows 
users to interface a gener- 
ated program with an ex- 
isting file system. Alterna- 
tively, users can select the 
interface to industry prod- 
ucts such as Btrieve and C- 
ISAM. The C compilers cur- 
rently supported by PRO-C 
are Microsoft’s Version 2.0, 
Lattice’s Version 2.15, Com- 
puter Innovations’ Version 
2.3F, and DeSmet’s Version 
2.4. PRO-C costs $195. 

Fort’s Software has an- 
nounced V-EMM, the Virtu- 
al Expanded Memory Man- 
ager. V-EMM provides up to 
8 megabytes of virtual ex- 
panded memory and can 
execute many unaltered 
programs that support the 
Lotus/Intel/Microsoft Ex- 
panded Memory Specifica- 
tion. The price is $89.95. 

Calvert Computer Sys- 
tems has released Profes- 
sional Applications System 
(PAS) software for program 
developers. PAS consists of 
four programs: two for 
generating applications 


PASE. 


Assembly Language Programming Library 
for the IBM PC/XT/AT or compatible DOS systems. 


ASMLIB gives the Assembly Language 
programmer 190+ assembly functions which do - 


Graphics functions draw CIRCLES, ARCS, ELLIPSES, LINES, and plots POINTS on 
the Color Adapter, Enhanced Graphic Adapter, and the Herc. Monochrome Card. 
Functions also allow PAINTING, IMAGE SAVES and RESTORES, and SCROLLING. 


Text Windows - Up to 64 text windows may be defined, outlined, overlapped, moved, 
and can be grouped onto 256 logical display pages. 


Floating Point - Arithmetic and Trigonometry functions for the MS and IEEE (8087) 
floating point formats (both 4 and 8 byte precision), and the 8087 (80287) can be 
utilized automatically if installed into the target system. 


ASCII String/Numeric conversion routines provide a user interface to the math 
functions. ASFORMAT function allows numeric values to be formatted utilizing 
commas, dollar signs, left or right justified, etc. (ie. BASIC’s PRINT USING). 


Mouse Support - ASMLIB provides support for any mouse device which adheres to the 
MS Mouse software standard. 


Dynamic Memory support can utilize all available memory (up to 640k). Blocks of 
memory can be allocated, changed, moved, and killed. 


® Console I/O, Disk I/O with file copy routines, Asynchronous Communications, Printer 


Support, ASCII String support, Sound generation, plus much more. 


ASMLIB is supplied with complete MASM source code on 3 DOS diskettes along with a 
215+ page reference manual. 


- ALL FOR ONLY - 
5149.00 


For ordering or info please call: 


BC Associates 
13073 Springdale St., Suite 134 
Westminster, CA 92683 
(714) 741-3015 


Phone COD orders accepted - ORDER YOURS TODAY!!! 





Circle no. 182 on reader service card. 


Vast 


SINGLE 
BOARD 
COMPUTER 


Eee 


On board 6-10 MHz CPU, 20K RAM, 32K EPROM, 
two RS-232, 16-bit port, 5-counter/timers 
expandable via Memory/FDC Board. 


M68K CPU (bare board) 

M68K CPU A&T (6MHz) 

MD512K Memory/FDC (bare board) 
MD512K Memory/FDC (128K) 
FDC/Hard Disk interface option 
M68KE Enclosure w/power supply 
M68K Monitor EPROM ’s 

M68K Macro Cross Assembler 
4XFORTH OS w/assembler, editor 
CP/M 68K OS w/‘‘C’’ compiler 


Educational P.O. Box 16115 
E Microcomputer Irvine, CA 92713 
Systems (714) 854-8545 


Circle no. 103 on reader service card. 
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and two for running them. 
Programs are menu-driven 
and support full-screen 
editing, color systems, 
function and arrow keys, 
and unlimited nesting of 
menus. PAS applications 
can run any .COM or .EXE 
program. The system re- 
quirements are MS-DOS, 
256K, two 360K disk drives, 
and an ANSLSYS driver. The 
product costs $49.95. 

Specialized Systems 
Consultants’ has_an- 
nounced an IBM PC, PC/AT, 
or Xenix System V port for 
its Unix-based Hitachi 6301 
C Cross Compiler. The port 
features a stack frame de- 
signed to minimize over- 
head, separate compilation 
and linking, a source-code 
optimizer, and a run-time 
library. 

The Synergy Develop- 
ment Toolkit from Matrix 
Software Technology 
Corp. provides tools for ac- 
cessing Synergy run-time 
function calls from a wide 
range of languages. These 
language gateways are de- 
signed for the IBM/MS Mac- 
ro Assembler, Turbo Pascal, 
IBM/MS BASIC Compiler and 
Pascal Compiler, Lattice C 
Compiler, IBM/MS BASIC In- 
terpreter, Microsoft C Com- 
piler, and dBASE II/IIl. The 
toolkit features a font col- 
lection, compiler, manager, 
and graphics resource edi- 
tor. The retail price is $395. 

Microtec Research has 
introduced the ASM180 
cross assembler package, a 
full implementation of a 
relocatable macro assem- 
bler for the Hitachi 
HD64180 microprocessor’s 
specified assembly lan- 
guage. ASM180 is available 
on DEC VAX/VMS and Micro- 
VAX/VMS. The assembler 
features a compatible in- 
struction set and directives, 
conditional assembly, sym- 
bolic addressing, relative 
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addressing, and symbol 
cross-reference listing. A 
binary license for the 
ASM180 is $2,000 for the 
VAX under VMS or Ultrix. 

The following utilities 
are available from Lattice: 
Lattice Text, a collection of 
eight programs that pro- 
vide a set of tools for exam- 
ining and editing text files; 
Lattice Make, an automat- 
ed product generator; Lat- 
tice Screen, which pro- 
vides error tracking; and 
Lattice dBC Ill Library, 
which contains more than 
70 C functions. 

BlueFish, a software 
product from Computer 
Access Corp., provides 
full text-management ca- 
pability for users of IBM PCs 
and compatibles. BlueFish 
can handle correspon- 
dence, contracts, medical 
journals, government reg- 
ulations, engineering 
specifications, legal re- 
search, insurance docu- 
ments, or company per- 
sonnel records. The 
software operates on a 
minimum configuration of 
a PC with 256K, one disk 
drive, and PC-DOS. The 
package comes in two con- 
figurations: an office-auto- 
mation, full-test, manage- 
ment system with both 
build and search/retrieval 
modules; and a search and 
retrieval module designed 
for publishers of data dis- 
tributed on optical or other 
mass-storage media. Site li- 
censes start at $750 per site. 


Languages 

PforCe, a library of object- 
oriented functions and sub- 
systems for C, is available 
from Phoenix Computer 
Products Corp. Written in 
C and assembly language, 
PforCe offers programmers 
both high- and low-level 
functions that are ready to 
use. High-level functions al- 
low programmers to ma- 
nipulate windows, screens 
of fields and Lotus-like 


menus, and databases as ob- 
jects. Low-level functions 
give programmers hard- 
ware control and enable 
them to change defaults at 
will. Sophisticated subsys- 
tems are also offered. 
PforCe is available for Mi- 
crosoft, Lattice, Computer 
Innovations, and Wizard 
compilers. It is priced at 
$395. 

The Greenleaf Comm Li- 
brary (Version 2.0), a pro- 
grammers’ tool supporting 
C, is available from Green- 
leaf Software. More than 
120 functions are provided 
to support communica- 
tions at up to 9,600 baud, up 
to 16 simultaneous chan- 
nels, XON/XOFF and XMO- 
DEM protocols, and flow- 
control options. Version 2.0 
supports PC-DOS and MS-DOS 
and retails for $185. 

Absoft Corp. has added 
two members to the Mac- 
Fortran family: MacFor- 
tran/020 and MacFortran/ 
RL. Both were designed to 
take advantage of new 
high-performance Macin- 
tosh hardware, General 
Computer's HyperDrive 
2000, and Levco’s MAC Su- 
per 20FP. MacFortran/020 
is designed to generate 
code for Macintoshes up- 
graded with an MC68020 
CPU and MC68881 math co- 
processor. MacFortran/RL 
is a series of replacement 
run-time libraries for Mac- 
Fortran users using hard- 
ware floating point. It sup- 
ports NS32081 boards, the 
MC68881, or General Com- 
puter’s HyperDrive 2000. 

FORTRAN-80 ___ Utilities 
from Cleydale Engineer- 
ing are designed to comple- 
ment the Microsoft FOR- 
TRAN-80 compiler, which 
runs under CP/M-80. These 
utilities consist of an opti- 
mized, scientific, subrou- 
tine library; Forlib.Rel 
math addition; an escape 
sequence and control char- 
acter generator for control- 
ling peripheral devices; 


and three FORTRAN pro- 
gramming tools. Each sub- 
routine module is fur- 
nished with a demonstra- 
tion driver program. 
Subject areas include linear 
and nonlinear regression 
analysis for curve fitting ex- 
perimental data, statistics, 
matrix operations, simulta- 
neous equations, forward 
and inverse fast Fourier 
transforms, numeric inte- 
gration, equation roots, and 
graphics. The entire pack- 
age consists of 60 files occu- 
pying 238K of disk storage 
and is distributed in the 
standard single-sided, sin- 
gle-density CP/M format. 
The cost is $49.95. 

TDI Software has re- 
leased the UCSD Pascal com- 
piler, which includes the p- 
System operating system, 
for the Atari 520ST. UCSD 
Pascal features support 
units for separate compila- 
tion, assembly-language 
procedures, full implemen- 
tation of Pascal, and a full- 
screen editor. The product 
is available in a regular and 
a developers’ version. In ad- 
dition to the UCSD Pascal 
compiler and p-System op- 
erating system, the devel- 
opers’ version contains an 
M68000 assembler, a native 
code generator, a symbolic 
debugger, and assorted Pas- 
cal units for manipulating 
directories and performing 
systems work. UCSD Pascal 
for the Atari 520ST is priced 
at $79.95; the developers’ 
version is priced at $149.95. 

Philon’s Fast/Pascal is a 
high-quality compiler de- 
veloped for use by pro- 
grammers in the scientific 
and educational communi- 
ties. It is designed for the 
16- and 32-bit environ- 
ments. Programs written 
in Fast/Pascal are portable 
to other hardware/operat- 
ing systems. It is fully com- 
patible with IEEE standard 
floating-point real arith- 
metic, and system calls are 
executable from within 


Dr. Dobb’s Journal, July 1986 


the language. The package 
also contains a set of run- 
time libraries, file-han- 
dling routines, and string- 
handling capabilities. 

MasterForth, which is 
available from Micromo- 
tion, is an implementation 
of the Forth programming 
language that includes a 
68000 macro assembler 
and a full interface to CP/M 
68K. Relocatable utilities 
and transient definitions 
make it possible to run soft- 
ware packages, and a 
string package, screen edi- 
tor, and resident debugger 
are standard features. Mas- 
terForth is also available 
for the Macintosh, the IBM 
PC family, the Apple II fam- 
ily, the Commodore 64, 
and CP/M Z80 machines. It 
retails for $125. 


For IBM/Apple 
Release 1.2 of TextBank 
from Group L Corp. offers 
improved performance 
through the use of extend- 
ed memory, support for ad- 
ditional storage devices, 
several extensions to the 
search and user interface, 
profiles of the most widely 
used Dialog and BRS on-line 
databases to make informa- 
tion searchable when 
downloaded, and full sup- 
port for individual text files 
of up to 20 megabytes. Text- 
Bank requires an IBM PC or 
compatible with 640K, a 
hard disk, and MS-DOS. It is 
available for $995. 

The Polytron Version 
Control System (PVCS) from 
Polytron Corp. is a source- 
code version and revision 
management system for 
programmers or teams of 
programmers developing 
large or complex programs 
on PCs and networks. The 
system maintains the revi- 
sion history of source files 
and chronological and his- 
torical records of changes. 
It reconstructs any prior re- 
vision of any module, de- 
fines a version as specified 
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revisions of various mod- 
ules, and supports branch- 
ing from prior revisions. 
Disk space is conserved by 
an intelligent difference de- 
tector that stores only the 
difference between succes- 
sive revisions of a module. 
A single-user licence is 
available for $395. 

Show Partner, a memo- 
ry-resident graphics editor 
with animation, is avail- 
able from The Marketing 
Channel. One image can 
quickly and completely re- 
place another, and wipe, 
split, and box effects per- 
form their transitions 
along traveling event line 
edges moving up or down, 
left or right, together or 
apart, or in or out. Show 
Partner also offers a scroll 
effect in any of four direc- 
tions, fade-in of a selected 
area, and two-part weave 
of an area. The program 
loads into RAM alongside 
other applications and can 
also work in a nonresident 
stand-alone mode. Text or 
graphic screens are Cap- 
tured from any source and 
saved as named files. The 
program has the ability to 
add or change colors, size 
rotate, move graphics, and 
add text to graphics. Show 
Partner supports IBM CGA 
and EGA displays as well as 
the AST ColorGraphPlus 
palette display, AST Pre- 
view, or Hercules-compati- 
ble monochrome graphics 
adapters. It costs $149. 

Version 3 of Portable 
Software's PortaAPL soft- 
ware package for the Mac- 
intosh is a full-featured in- 
terpreter for standard APL. 
PortaAPL features a full- 
screen editor, the ASCII 
character set option, and 
the Host File System option. 
Also, system functions are 
available for accessing 
many of the Macintosh 
toolbox ROM routines, such 
as QuickDraw graphics, 
communications, sound 
generation, and menus. 


FTL Modula-ll 
$49.95! 


Your next computer language. The successor to Pascal, 
Modula is powerful. Why? Once a routine is written, it need 
never be recompiled. Programs work everywhere from Z80 
through VAX. 


FTL Modula-ll is a full compiler for Z80 CP/M and MSDOS com- 
puters! It’s fast -- 18K source compiles in 7 seconds! The 
built-in split screen editor is worth $60 alone. Some stan- 
dard features: full recursion, 15 digit reals, CP/M calls, 
coprocesses, assembler and linker. The one-pass compiler 
makes true COM, ROMable code, too. Get the language 
you've waited for now. Only $49.95! 


FTL Editor Toolkit 


Full source to our split-screen programming editor. Curious? 
Want to customize to your tastes? Want sample Modula-ll 
code? This is perfect for you. Comes with all you need for 
your personal editor or terminal installer. Just $39.95! 


Workman and Associates 
112 Marion Avenue 
Pasadena, CA 91106 
(818) 796-4401 


We have over 200 formats in stock! Please specify your for- 
mat when ordering. Add $2.50 per order for shipping. We 
welcome COD orders! 
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Power Tools for 
ALCL Ce (sais 


esign aids, 
1d support 


information 
chase decisi 


ing, free UPS sh 
reasonable retu 
American Expres 
TSF helps you get’ 


pted without surcharge. 
ir job done. 


Call Toll Free 
24 hrs a day/7 days a week 


Sample Prices: 
Microsoft C $259 

MASM 4.0 $109 

Turbo Pascal $45 

Mark Williams C $375 

Lets C $59 

Wendin OS Toolbox $89 
Blaise Async Manager $137 


nisi 


Ask For Operator 2053 


800-543-6277 
Calif: 800-368-7600 


¢ Dept. C-2 ¢ 649 Mission Street 
e San Francisco « CA 94105 
e (415) 957-0111 


The Software Family™ 
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OF INTEREST 
(continued from page 123) 





The package for the Macin- 
tosh is priced at $275. Cur- 
rent customers can up- 
grade to Version 3 for a $25 
fee. 


Reference Map 
Absoft Corp., 4268 N. 
Woodward, Royal Oak, MI 
48072; (313) 549-7111. Read- 
er Service Number 16. 
Ashton-Tate, 20101 Hamil- 
ton Ave., Torrance, CA 
90502-1319; (213) 329-8000. 
Reader Service Number 17. 
Borland International 
Inc., 4585 Scotts Valley Dr., 
Scotts Valley, CA 95066; 
(408) 438-8400. Reader Ser- 
vice Number 18. 
California Intelligence, 
912 Powell St., #8, San Fran- 
cisco, CA 94108; (415) 391- 
4846. Reader Service Num- 
ber 19. 

Calvert Computer Sys- 
tems Inc., 240 E. Main St., 


Programming the 


65816 Microprocessor 
including 6502 and 65C02 


David Eyes 


P.O. Box 95, Athena, OR 
97813; (503) 566-3338. Read- 
er Service Number 20. 
Cleydale Engineering, 
Rte. 1, P.O. Box:.217-B, 
Blacksburg, VA _ 24060. 
Reader Service Number 21. 
Computer Access Corp., 
Ste. 324, 26 Brighton St., Bel- 
mont, MA 02178-4008; (617) 
484-2412. Reader Service 
Number 22. 

Corporate Microsystems 
Inc., P.O. Box 277, Etna, NH 
03750; (603) 448-5193. Read- 
er Service Number 23. 
Digital Pathways Inc., 201 
Ravendale Dr., Mountain 
View, CA 94043; (415) 964- 
0707. Reader Service Num- 
ber 24. 

Fort’s Software, P.O. Box 
396, Manhattan, KS 66502; 
(913) 537-2897. Reader Ser- 
vice Number 25. 

Gold Hill Computers Inc., 
163 Harvard St., Cam- 
bridge, MA 02139; (617) 492- 
2071. Reader Service Num- 
ber 26. 
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Greenleaf Software Inc., 
1411 LeMay Dr., Ste. 101, 
Carrollton, TX 75007; (214) 
446-8641. Reader Service 
Number 27. 

Group L Corp., 481 Carlisle 
Dr., Herndon, VA 22070; 
(703) 471-0300. Reader Ser- 
vice Number 28. 
Information People 
(The), 443 Hudson Ave., 
Newark, OH 43055; (614) 
349-8644. Reader Service 
Number 29. 

Information Technol- 
ogies Inc., 7850 E. Evans 
Rd., Scottsdale, AZ 85260; 
(602) 998-1033. Reader Ser- 
vice Number 30. 

Lattice Inc., P.O. Box 3072, 
Glen Ellyn, IL 60138; (312) 
858-7950. Reader Service 
Number 31. 

Majic Software Inc., 224 S. 
Salisbury, Ste. C4, West La- 
fayette, IN 47906; (317) 743- 
0610. Reader Service Num- 
ber 32. 

Marketing Channel Ltd. 
(The), 120 E. Washington 
St., Ste. 421, Syracuse, NY 
13202; (315) 474-3400. Read- 
er Service Number 33. 
Matrix Software Tech- 
nology Corp., 50 Milk St., 
15th Floor, Boston, MA 
02109; (617) 723-8327. Read- 
er Service Number 34. 
Micromotion, 8726 S. Se- 
pulveda Blvd., #A171, Los 
Angeles, CA 90045; (213) 
821-4340. Reader Service 
Number 35. 

Microtec Research, 3930 
Freedom Cir., Santa Clara, 
CA 95054; (800) 554-5554, in 
CA (408) 733-2919. Reader 
Service Number 36. 
Orchid Technology, 
47790 Westinghouse Dr., 
Fremont, CA 95439: (415) 
490-8586. Reader Service 
Number 37. 

PCC/Systems, 480 Califor- 
nia Ave., Ste. 201, Palo Alto, 
CA 94306; (415) 321-0430. 
Reader Service Number 38. 
Philon Inc., 641 Avenue of 
the Americas, New York, 
NY 10011; (212) 807-0303. 
Reader Service Number 39. 
Phoenix Computer Prod- 


ucts Corp., 320 Norwood 
Park South, Norwood, MA 
02062; (617) 762-5030. Read- 
er Service Number 40. 
Polygon Associates Inc., 
1024 Executive Pkwy., St. 
Louis, MO 63141; (314) 576- 
7709. Reader Service Num- 
ber 41. 
Polytron Corp., P.O. Box 
787, Hillsboro, OR 97123; 
(503) 648-8595. Reader Ser- 
vice Number 42. 
Portable Software, 60 Ab- 
erdeen Ave., Cambridge, 
MA 02138; (617) 547-2918. 
Reader Service Number 43. 
Soitware Clearing House 
Inc., 771 Neeb Rd., Cincin- 
nati, OH 45238; (513) 451- 
6742. Reader Service Num- 
ber 44. 
Soitware Store (The), 706 
Chippewa Sq., Marquette, 
MI 49855; (906) 228-7622. 
Reader Service Number 45. 
Specialized Systems Con- 
sultants Inc., P.O. Box 
55549, Seattle, WA 98155; 
(206) 367-UNIX. Reader Ser- 
vice Number 46. 
System Automation Soft- 
ware Inc., 8555 16th St., Sil- 
ver Spring, MD 20910; (301) 
565-8080. Reader Service 
Number 47. 
TDI Software Inc., 10410 
Markison Rd., Dallas, TX 
75238; (214) 340-4942. Read- 
er Service Number 48. 
—Wendelin Colby 


DDJ 


Dr. Dobb’s Journal, July 1986 





Now You Know Why 
BRIEF is 3 BEST 


‘“BRIEE, The Programmer’s Editor, is simply the best text 
editor ne Can fi John Dvorak, INFOWORLD 7/8/85 


The Program 


Editor with 
the BEST 
Features 


Since its introduction, 
BRIEF has been sweep- 
ing programmers off 
their feet. Why? 
Because BRIEF offers the 
features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about 
every feature you’ve 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
‘“(BRIEF). . .is quite 
simply the best code 
editor I have seen.’’ 


Solution 


ystems ”™ 


evel _ + conialinsd you issue can whe 7 
undone. So if you make ten changes and then S 


realize that the fir 





undo ail the chang 





rst one was an error, al can 
; back to the 


mistake. . 





Needless to emphasize, this ey. can save 


endless grief.”’ 


No other editor has this capebiiity: 





Every Feature You Can Imagine 


Compare these features 
with your editor (or any 
other for that matter). 

e FAST 

Full UNDO (N Times) 

e Edit Multiple Large Files 
© Compiler-specific 
support, like auto 
indent, syntax check, 
compile within BRIEF, 
and template editing 
Exit to DOS inside BRIEF 
Uses all Available Memory 
Tutorial 

Repeat Keystroke 
Sequences 

15 Minute Learning Time 
Windows (Tiled and 
Pop-up) 


Unlimited File Size 
-(even 2 Meg!) 
Reconfigurable Keyboard 
Context Sensitive Help 
Search for “‘regular 
expressions’ 

Mnemonic Key 
Assignments 

Horizontal Scrolling 
Comprehensive Error 
Recovery 

A Complete Compiled 
Programmable and 
Readable Macro Language 
EGA and Large Display 
Support 

Adjustable line length 
up to 512 


MONEY-BACK GUARANTEE 
Try BRIEF ($195) for 30 days — If not satisfied get a full refund. 


TO ORDER CALL (800-821-2492) 


Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments - NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion - 


BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 


ot COPY pROTECTED ; 
. Z 





SOLUTION SYSTEMS, 335-P WASHINGTON ST., NORWELL, MA 02061, 617-659-1571 





Circle no. 147 on reader service card. 


BRIEF is a trademark of UnderWare 


v : AVA Sd aka NB). 

Orit 

NOW: a FORTH 
system that 

meets your needs! 


Available for most personal 
computers and DEC minis, 
this FORTH-83 language 
from an established company 
will meet the needs of the 
novice and the expert alike! 


Advertiser S 


: processors Unlim 


Beginners will enjoy the clear 
style of the Users Guide. The video 

editor is easy to use, and the debug/ 
decompile utilities make program- 
ming a snap. Leave questions on 
our Bulletin Board Service for quick 
answers. Our optional telecom- 
munications package provides 
superb modem access. 


29 eres 
ee 


Programmer Ss Shop .. 


- Proseanmner s Shop oe 
Proto PC, Inc. er ae 
) Quicksoft .. oo 
DDI Bound Volumes. . 74 oe 
- DDJ Code Listings | 7 ‘Rational Systems. 


Advanced Programmers will DDBJ C-Products . 76-77 120 Relational Memory 


et more details of the system from 

the comprehensive Programmers 
Guide. Optimized code and full 
memor ear utilization make 
UNIFORTH one of the fastest 
FORTHs for large applications. Use 
the complete macro assembler for 
time-critical routines. Text file, 
operating system, graphics, sound, 
and string support are included. 


| eaward Ream .. ies oo ee 
- siecle aes Software neoes---- 147) A _ ‘Software Construction. 


Sahution eystenss . 
_ Solution Systems aeeees 
Engineers will use the “s Les Ce 
multitasking and high-level interrupt ee 
features to handle simultaneous 
functions. We have ROM-based 
systems for many popular single- 
board computers, or you can use 
one of our optional cross-compilers 
for one of a dozen processors to 
generate your own systems. Need 
help? We offer custom program- 
ming, classes and other consulting 
services. 


Scientists will appreciate the full 
floating-point support. Optional 
utilities include a 2-D plotting 
package, astronomical programs 
and catalogs, image processing and 
artificial intelligence. 


Lovitech, inc 
_ MacTutor. ee 
_ Micro Interfaces Comp. 
= >motion 


Public-Domain Samplers 
are available for many systems. 


a or write for our free Catalog. . : | ago | = te cae OFFICES 
uarantee that you'll enjoy Ct. a | : ee 
UNIFORTH. or your money back! 2 


ctly: see ad for phone number. © 





Southeast © | _ Northern California/Northwest 


Gary George (404) 3 355-4128 — Lisa oe ee) SGG-3600 - 
Unified Software Systems / ee 
P.O. Box 21294 Midwest - Cr Se 1 California/AZ/NM/TX 
Columbus, OH 43221 Michele Beaty (317) 875-8093 a _ Michael Wiener (415) 366-3600 - 


(614) 459-7735 


BBS: (614) 459-7736 : - — oe | 
(300/1200 baud, 24 hrs.) ee. Advertising Director ; 
Robert Horton (415) 366-3600 
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instant, and read or write files without 
delay. Unlike alternatives, the 

SemiDisk offers up to 8 megabytes of 
instant-access storage while leaving ) 


your computer's main memory free NEW LOWER SEMIDISK 


for what it does best - computing! PRICES THAT WON’T 
KEEP A GRIP ON DATA SNOW YOU UNDER 


turn off your computer. 512K = 2Mbyte 
IBM PC, XT, AT $495 $995 
Epson QX-10 $595 $995 
S-100,SemiDisk II $799 $1295 
$-100,SemiDiskI $595 — 


" ng not ie $695 $1295 
even a5 hour blackout will sabotage - 














Battery 

wichonesd capri Backup Unit = $130 ~~... $130 
miDisk Systems, I cia Riera” te eee "Software drivets available for Cone eO, 
_Box GG, Beaverton, Oregon 97075 i (itssti‘Cé;!!!CO!.™. © MS-DOS, ZDOS, Turbo DOS, and VAL 








he declaration’ that some British 


colonists on this continent made 
| of their independence 200-odd years 
| ago this month was not the first re- 
| bellion against a regime regarded as 
tyrannical, of course; nor was the 

government they later formed the 


| first democracy. Nothing ever, ap | 


| pens for the first time. — 
| Theauthors of the] ec 
: dependence were p 


| quent in their defense of th sets. of | 


_ the nonindentured adult wh ite male, : 
| and over the succeeding - centuries 
| various of their descendants have 
| been eloquent about the 1 eed to ex- 
| tend en aot t hts 


since we had reviewed Borland’s 
| Turbo Pascal, and now here was Tur- | 
bo Prolog knocking at the door. Well, 
‘not exactly at the door, but I did final- 
| ly manage to get my beta and final 


versions of the new Turbo Prolog 


_| without driving to Scotts Valley and 
1 | have since been comparing notes on 


| the product with Juergen Fey, an edi- 
tor with PC Magazin. (PC Magazin is 


| the magazine that Markt & Technik, 


-M&T Publishing’s Prussian parent 


| | plier puts out for the fairly tech- 


vn ve eee “ ye like 


. | nical PC readership in West Germa- 
e were as oe as siney a are elo- 7. 


ny, and Juergen is one _ its more 


L | technical editors.) 


Turbo Prolog is PROLOG, Juergen 


al thinks, in the same sense that Turbo 
| Pascal is Pascal. The user interface is 
- | excellent, the performance is fast, 
1- | and there are many extensions that 
| overcome deficiencies of pure PRO- 
| LOG The result—our preliminary 
- impression only—is that Turbo Pro- 
1 | log is at least a very good environ- 


_ment for learning Turbo Prolog. Be- 


issue, | yond that—well, we are planning to 
our | review the product in the near fu- 
ew | ture, and we'll evaluate it as a lan- 


 ehren Forth. creat L Chaves oe 
| did the blueprints. Now Harris Semi- 


| conductor has acquired a Novix li- 


| cense and is supplying bit-slice ver- 
| sions of the design. What this added 
| support could mean to Novix and to 
| Harris will be determined by the 
| Forth y programming community. Pre- 
dictions are oy 


It had boon exactly two years, I re- 
| Marked last month in this pees 


| guage implementation for first-time 
_users, as a serious development envi- 
ronment, and as a PROLOG imple- 
mentation. We'll consider what its 
existence, price, and ease of use could 


mean for the spread of PROLOG, and 
well evaluate its speed in light of 


Borland’s claims and determine 


what the programmers gave up for 
the speed they got. 

Borland has taken some brave 
steps in the past; I wonder if its inde- 
a eee Jc Ses will be affected if the 


company goes” public this year, as 1s | 
seems Dey 3 


| as op wane weet count the 


freedom to read among those rights - 
alluded to at the top of this page, and 1 — 


would not be an editor if I failed to" 


bring to your attention the cloud of — 
_ censorship that is once again moving | 
| over this country. It’s starting with 
: “adult” 
“ment, with nuidlelines on the treat-— 


(i.e., adolescent) entertain-— 


ment of sex in films and the removal : 


of Playboy et al. from convenience | 
_ stores. DDJ isn't in the prurient inter- | 
est business, of course, but we are | 


currently running an on-line confer- 
ence on the politically charged issue 
of data encryption, and I doubt that > 
the cloud will stay over someone 


mcs S putea for long. 


Ray Boil, a pioneering computer 
retailer, recently flamed to me about 7 


the wild crowd at the Midwest Com- 
puter Show in 1976, where he shared | 


a booth with Bob Marsh and Steve 


: Dompier of Processor Technology. It 
reminded me of the Atari and Com- 


modore booths this year in Atlanta, 


packed with independent third-par- | 


ty developers. In the otherwise stuffy | 
Comdex atmosphere, the air in those 
booths was almost giddy— Se 
evocative of 1976. | 
Desktop publishing was the bie 
thing at Comdex this year, with laser | 
printers and document scanners | 
coming down in price. Phoenix held | 
a meeting for 80386 developers to dis- 
cuss setting 80386 standards before | 
IBM does it. Despite a lot of talk that | 
copy protection is going the way of | 
King George, the Tories of Lotus seem | 
unconcerned; meanwhile, Central 
Point Software, purveyor of guns to 
the rebels, is looking into supplying | 
armor to the redcoats. | 


~ Michael Swaine | 
editor-in-chief | 





| This is the Modula2 





compiler everybody's 










== 
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1S -Modula-2 at its absolute best. It’s a fully integrated development 
Avironment that takes into account what you need as a programmer. Without leaving 


~ the Editor, you can call the compiler, linker and utilities. 


With Logitech’s Modula-2, you'll have the ability to edit several files at once, 
comparing, window to window, various code modules. You can even move from 
window to window compiling, linking, debugging and running. 

The compiler has the kind of power and room to breathe that you really need in 
today’s complex applications. It is as easy to use as Turbo Pascal, without your 
programs being limited to 64K of code. 


At your command will be the libraries of modules that make Modula-2 a 
programmer’s dream. It has essentially the same structure as Pascal with the major 
addition of a library organization of code modules that allow you to put together 
programs on a solid, block-by-block, foundation of proven code. 

Whether you’re working with a module of your own making, or one of the many in 
our library, you'll find the system by which each module is identified, described and 
stored an organizational masterpiece. And that’s at the heart of Modula-2. 


Underneath the sophisticated system is a Modula-2 compiler that is the result of 
years of development and proven use in industry. We run on the Vax", and we run on 
the IBM PC. And the code is portable-from one to the other. 


Best of all... you can have it right now! 





Complete with Editor, 
Run Time System, Linker, Cursor-posi- 
tioning debugger, 8087 Software Emula- 
tion, BCD module, Logitech’s extended 
library, Utility to generate standard .EXE 
files, Turbo Pascal (and standard Pascal, 
too) to Modula-2 translator (included 
without charge until 8/1/86), and much, 
much more! 


Even if 
you haven’t yet gotten an 8087 co-pro- 
cessor, you can still use this version. 

For machines with 
512K or more. Takes advantage of the 
larger memory to increase compilation 
speed by 50%! Supports 80186 and 80286 
as well as 8086 and 8088. Includes 8087 
and 80287 support, too. 


Now you can build true win- 
dowing into your Modula-2/86 code with 
ease, too. Very powerful and very full, yet 
only !SK in size. Features virtual screens, 
color support, overlapping windows anda 
variety of borders. 


(source level) Much more 
powerful than just a symbolic RTD. 
Display source code, data, procedure call 
chain and raw memory. Set break points, 
assign values to variables, pinpoint and 
identify bugs in your source. The ultimate 
professional’s tool! 


Features a post-mortem de- 
bugger for static debugging. If a program 
you’ve written crashes at run time, the 
situation is frozen, and you can pinpoint, 
in source, the cause of the error and the 
data at that moment. Also includes a 
disassembler, a cross reference utility and 
a “version” utility that allows conditional 
compilation. 


Automatically selects modules af- 
fected by code changes for quick and 
minimal re-compilation and relinking. 
Even figures out dependencies for you. 


Source code for our major library 
modules is now available-for customiza- 
tion or exemplification. 

If you need to produce rommable 
code, call our 800 number for further 
information on this package. 


Please call our 800 line for: 0 Information on our *VAX version O Site License and University Discounts 0 Dealer and Distributor information 


been aiting for. . 


H MODULA) 


To place an order call our special toll free number 


800-231-7717 


in California 


800-552-8885 


Special offer until 8/1/86! 


includes 


Now, you can take your library with you! 


I'd like to take the next 
» logical step in programming. 
Please send my copy of Logitech Modula-2/86 
to the following address: 
OVISA OMasterCard 0 Check Enclosed 


Card Number Expiration Date 
Signature 

Name 

Address 


City 








State CAD cecum WONG | 
Here’s the configuration I'd like: 
O Logitech Modula-2/86 $89 


OU Logitech Modula-2/86 $129 Oo Run Time Debugger $69 
with 8087 support (source level) 


DO Logitech Modula-2/86 Plus $189 UO Utilities Package $49 


Please add $6.50 for shipping O Make Utility $29 
and handling. O Library Sources $99 


) 


O Window Package $49 


Total enclosed $____ 
(California residents, please add applicable sales tax) 


LOGITECH 


LOGITECH, Inc. 

805 Veterans Boulevard 
Redwood City, California 94063 
Telephone (415) 365-9852 
For European pricing, please contact: 
LOGITECH SA 
Box 32, CH-1143 Apples, Switzerland 
Telephone 41 (21) 774545 


$39 


Free! $49.95 value Turbo Pascal translator! 


And include the indicated items: 





*Turbo Pascal is a registered trademark of Borland International 


HAUPPAUGE 


Is Getting A Fast Reputation. 





ES an 
ing a fast reputation with 
their 87 Math Pak, the 


combination of an 87 chip and 87 
Software Pak that’s been accelerat- 
ing PC math since 1982. 

Next came their racy 287 
FAST/5, a math coprocessor mod- 
ule with its own 5MHz clock, speeding up PC/AT math 
by 25%. (Pictured above. ) 


Now, Hauppauge Unveils the 287 FAST/8A... 

Our newest math coprocessor for the PC/AT, the 287 
FAST/8A moves out at 8MHz—doubling the speed of 
each floating point math operation. The FAST/8A accel- 
erates AutoCad, 1-2-3, Symphony, Turbo Pascal, Frame- 
work and more. The FAST/8A also runs in PC/AT 
compatibles including the Compaq Deskpro 286, Sperry 
PC/IT and TI Business-Pro computers. 


..-And the 87 Software Pak Version 6.0 
Designed to steal the heart of programmers, the 87 Soft- 
ware Pak supports IBM’s BASIC Compiler 1.0 and 2.0, 
and Microsoft’s QuickBASIC; executing math-intensive 
programs up to 20 times faster! The 87 Software Pak also 
performs FFT’s and Matrix operations. For example, a 
PC (or PC/XT) with an 87 Chip and 87 Software Pak 

_ can perform a 512-point complex FFT in just 1.1 seconds. 
What’s more, a PC/AT with a FAST/8A inverts a 25 by 


25 element matrix in under 1 second. . 
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HAUPPAUGE Math Coprocessors _ 
287 FAST/8A 8MHz math coproces- | 
sor for PC/AT and compatibles ....$379 


287 FAST/5 5MHz math coprocessor 
for PC/AT and compatibles........ NZ Ae 


287 Chip PC/AT math coprocessor— — 
runs at 4MHzin PC/AT ........... $219 


87 Chip Math coprocessor for IBM — 


OUOPGMNekee:: $129. 


87-2 Chip Math coprocessor for 8MHz PC compatibles...$195 


HAUPPAUGE Math Coprocessor Paks 

87 Math Pak V.6.0 87 chip and math coprocessor software 
support for IBM BASIC Compiler 1.0, 2.0 and Microsoft’s 
QuickBASIC. Plus, Matrix and FFT support, one year of free 
updates, complete source code and “8087 Applications and 


Secor ie ts ee oe tb) 
87 Software Pak V.6.0 Math coprocessor software support 
as in the 87 Math Pak, but without 87 chip....../........... nBEelY 
With any Hauppauge math coprocessor ............. Soha $150 
Recale + Math coprocessor support for 1-2-3 version 1A ..$ 95 
With any Hauppauge math coprocessor ..........2.0se0e00- $ 49. 
HFT + Complete Hayes Fourier Transform Package ....... $125 
With any Hauppauge math coprocessor ...........+.2..06- $ 79 


The 287 FAST/8 Doubles Your PC/AT’s Math Speed! 
Help your PC/AT get a fast reputation with Hauppauge’s 
new 287 FAST/8A. Call today, or contact your local 
computer dealer to learn more about Hauppauge’s racy 
product line. And ask for “87 Q & A” our free booklet © 


on math coprocessors. 


Hauppauge Computer Works, Inc. 
358 Veterans Memorial Highway, Suite MSI, 


~ Commack, New York, USA 11725 ¢ 516-360-3827 
| Hauppauge Available at your local computer dealer 





